Call Sudo from a Perl Script

use Sudo;

my $password = '*****';
my $su = Sudo->new(
                {
                        sudo => '/usr/bin/su',
                        username => "*****" ,
                        password => $password,
                        program => "/tmp/test.sh" ,
                        program_args => ''
                }
                );

$result = $su->sudo_run();
print "$result \n";
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};
}