Select Code to Download

#!/usr/bin/perl
use IO::Socket;

...
    my ($socket,$packet) = @_;
    if ($packet ne ''){$_[0]->send($_[1]) or die "Send error: $!\n";}
}

#!/usr/bin/perl -w
use IO::Socket;
...
    return "$_[0]";    
    }
}