Help for this page
#!/usr/bin/perl system "su - bob"; print "password";
#!/usr/bin/perl system "su - bob"; system "password";