try catch를 사용하여 system command실행

# system failure가 발생해도 죽지 않고 실행 됨.^^;

eval{
           ### try block
    system( "perl xxx\n" ) == 0;
   };


### catch block
 if ($@){
  print "Failed ($?): $! \n";
 };