#!/usr/bin/perl
use strict;
use warnings;
use Sudo;
my $su;

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

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

__END__

$ perl sudo.pl
STDOUT: $VAR1 = [
          '127.0.0.1	localhost
',
          '127.0.1.1	user
',
          '
',
          '::1     ip6-localhost ip6-loopback
',
          'fe00::0 ip6-localnet
',
          'ff00::0 ip6-mcastprefix
',
          'ff02::1 ip6-allnodes
',
          'ff02::2 ip6-allrouters'
        ];
$VAR1 = [
          '127.0.0.1	localhost
',
          '127.0.1.1	user
',
          'Test_host	127.0.0.4
',
          '::1     ip6-localhost ip6-loopback
',
          'fe00::0 ip6-localnet
',
          'ff00::0 ip6-mcastprefix
',
          'ff02::1 ip6-allnodes
',
          'ff02::2 ip6-allrouters'
        ];

STDERR: 
return: 1