use Sudo;
use Data::Dumper;

my $password = '*****';
my $su = Sudo->new(
                {
                        sudo => '/usr/SYSADM/bin/sudo',
                        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};
        print Data::Dumper->Dump([$result],['result']);
        foreach my $key (sort keys %$result) {
           print("$key => $result->{$key} \n");
        }

}


##</code><code>##

HASH(0x14a4e0)
STDOUT:
STDERR:
return:
$result = {
            'HASH(0x1499a0)' => undef
          };
HASH(0x1499a0) =>