Select Code to Download

#!/usr/bin/perl -w

...
my $foo;
$sock->read($foo, 1000000);
print $foo."\n";

FILES=255