Select Code to Download

## print.pl
my $arguments = 'beep';
my $var = `perl process.pl $arguments`;
print $var;

## process.pl
my $var = shift @ARGV;
$var = uc($var);
print $var;