in reply to file input from command line

A quick and dirty answer: my ($in1, $in2, $out)= @ARGV;

A more general-purpose answer: see Getopt::Long or other options modules.

In Section Seekers of Perl Wisdom