#!/path/to/perl -w
use strict;

my $uname;
my $passwd;

print "username:";
chomp($uname = <STDIN>); #catch stdin, get rid of trailing newline
print "Your Username is: $uname"; #print it out
print "password:";
chomp($passwd = <STDIN>);

##</code><code>##

#!/path/to/perl -w
use strict;

my $uname;
my $passwd;

print "username:"; 
chomp($uname = <STDIN>); 
print "password:";
chomp($passwd = <STDIN>);

system("/path/to/prog", "$uname", "$passwd");