#!c:/perl/bin/perl -w

if ($result=`.\path\command`) { 
   print "Successful\n" ;
   &doSomethingIfNecessary();
   }

else {
   print "Unsuccessful\n" ;
   &ohDearTimeToDie();
   }

exit 0;