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