Select Code to Download

#!perl -sw

...
print $send . "\n" x 2;
$input = decode($send);
printarray($input);