1#!/usr/bin/env perl
2# Check that the length of a given URL is correct
3if ( $#ARGV != 1 )
4{
5 print "Usage: $0 string length\n";
6 exit 3;
7}
8if (length(@ARGV[0]) != @ARGV[1])
9{
10 print "Given host IP and port not supported\n";
11 exit 1;
12}
13exit 0;
14