use strict;
use warnings;

my $arg = $ARGV[0];
my $line = <STDIN>;              # bare <> won't work
print "argument was $arg\ninputline was $line";