Select Code to Download

use strict;
use lib '/opt/nextone/lib/perl5/site_perl/5.8.3/';
...
  exit 0;
}

CONNECT:

...
};      # End anonymous sub

print $socket "tail\n";      # Rock n Roll