my $exe='myprogram.exe';
my $user='tester';
my $pass='lab';
my $cmd=qq|runas /profile /user:$user "$exe"|;
open(FH,"| $cmd")  || die $^E;
print FH $pass;
close(FH);