Select Code to Download

#!/usr/bin/perl
#get command portion of data
...
$cmd=substr($stripped,$cmd_loc,$cmd_locend++);

print $cmd."\n";