#!/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");