#!/usr/bin/perl
use Sudo;
use strict;
use warnings;

my $su;
my $name = "root";
my $pass = "password";
$su = Sudo->new( { sudo         => '/usr/bin/sudo',
		   #sudo_args    => '...',
		   username     => $name,
		   password     => $pass,
		   program      => '/home/tinyos/Monks/sample.pl',
		   #program_args => '...'
		 }
    );

my $result = $su->sudo_run();
if (exists($result->{error})) {
    printf "STDERR: %s\n",$result->{error};
}
else {
    printf "STDOUT: %s",$result->{stdout} if $result->{stdout};
    printf "STDERR: %s",$result->{stderr} if $result->{stderr};
}

print $ENV{USER}."\n";

__END__

$ perl test.pl
STDOUT: root
tinyos

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

print $ENV{USER}."\n";