Select Code to Download

1 use IO::Socket; 
2 my $sock = new IO::Socket::INET (
...
7 die "Could not create socket: $!\n" unless $sock; 
8 print $sock "Hello there!\n"; 
9 close($sock);

    my $s = pack( 'H*', $hexcommand );