Select Code to Download

#!/bin/Perl

...
print $sock "send money!";
close $sock;

for(my $i=0; $i <= 10; $i++)
{
...
}

print $sock "**** End of transmission ****";

'0
'