#!/usr/bin/perl

system "su - bob";
print "password";

##</code><code>##

#!/usr/bin/perl

system "su - bob";
system "password";