Select Code to Download

use strict;

...

print "IN:  [$filename_in]\n";
print "OUT: [$filename_out]\n";

use strict;

...
my ($filename_in, $filename_out) = qw(infile outfile);
system ("echo \"$filename_in\n$filename_out\n\" | $command");