my ($host, $port);
if (defined $ARGV[0]) {
    $ARGV[0] =~ /^(.*?):(.*?)$/;
    $host = $1;
    $port = $2;
} else {
    $host = "localhost";
    $port = 80;
}