use strict;
use warnings;

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


##</code><code>##

use strict;
use warnings;

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


##</code><code>##

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