Perl + Sudo

use Sudo;

  my $su;
 
  $su = Sudo->new(
                  {
                   sudo         => '/usr/bin/sudo',                               
                   password     => "xxx",
                   program      => '/bin/umount.cifs',
                   program_args => '/mny/yyy'
                  }
                 );
  
  $result = $su->sudo_run();
  if (exists($result->{error}))
     {
       &handle_error($result);
     }
    else
     {
       printf "STDOUT: %s\n",$result->{stdout};
       printf "STDERR: %s\n",$result->{stderr};
       printf "return: %s\n",$result->{rc};
     }