Select Code to Download

use strict;
use warnings;
...
my $line = <STDIN>;              # bare <> won't work
print "argument was $arg\ninputline was $line";

use strict;
use warnings;
...
my $file = $ARGV[0];
system "./echo.pl $file";

duper:~/pp carol$ ./kprasanna.pl a_filename
hello kprasanna                  # typed in at terminal
...
inputline was hello kprasanna
duper:~/pp carol$