###remote.script###
 $result1=`DB_COMPILE $from $to`;
 if ($result1 =~ m/0 errors, 0 warnings/) 
 {
  <<SUCCESS - SOME CODE>>
  exit_status("Success\n","0");
 }else
 {
  exit_status("DB_COMPILE failed\n","1");
 }

 sub exit_status
 {
  my $description=shift;
  my $status=shift;
  print "$description\n";
  exit("$status");
 }

##</code><code>##

 ###local.script###
 %codes=('0' => 'Success',
        '1' => 'General failure',);

 my $ssh = Net::SSH::Perl->new("$ip");
 $ssh->login ($user, $pass);    
       
 ($exit) = $ssh->cmd("Remote.script");
 $description=$codes{"$exit"};
 print "EXIT STATUS: $exit $description\n";