Select Code to Download

#!/usr/bin/perl -w

...
    print $buf while (defined ($buf = <$new_sock>))        
}
close ($sock);

#!/usr/bin/perl -w
use strict;
...
    $sock->flush;
}
close ($sock)

my $sock = new IO::Socket::INET (LocalHost => 'sgilbertdt',
                                 localPort => 1200,
...
                                 Listen    => 5,
                                 Reuse     => 1
                                );