use strict;
use warnings;

my ($input1, $input2) = @ARGV;
print "Save '$input1' and '$input2'\n";

print "and another string within the program!: ";
my $inputinside = <STDIN>;
print $inputinside;