#!/usr/bin/perl

$ok = eval {



# while(1) {
  #die "bye";
#  sleep 1;
#  last;
# }



 #return 1;
};

print "ok: '$ok'\n";
print "died $err#\n" if(!$ok);
print "exited normally $err#\n" if ($ok);