my $result = &SU("/bin/echo","hi");

##</code><code>##

#!/usr/bin/perl -w
use strict;

print CGI::header();  
my $result = &SU("/bin/echo","hi");
print $result;
exit;

sub SU(){
my $app = $_[0];
my $args = $_[1];

  $su = Sudo->new(
                  {
                   sudo         => '/usr/bin/sudo',
                   username     => "root", 
                   password     => "password",
                   program      => $app,
                   program_args => $args
                  }
                 );
   
  $result = $su->sudo_run();
  if (exists($result->{error})) { 
		print "Error is $result";
     }
   else {
	if ($result->{stdout}eq""){
		warn();
		print "Null response";
	}
	return ($result->{stdout});
     }
}