danhart102

#!/usr/bin/perl -w
use IO::Socket ;
use IO::Handle ;

my $host = $ARGV[0] || "localhost";
my $port = $ARGV[1] || 8000;

STDERR->autoflush(1);
STDOUT->autoflush(1);
my $data = "";