## print.pl my $arguments = 'beep'; my $var = `perl process.pl $arguments`; print $var; #### ## process.pl my $var = shift @ARGV; $var = uc($var); print $var;