sub mys{ 
    print "??$_[0]??"; 
    eval{ die 'bad stuff' if $_[0] eq 'die' }; 
};;

print 'here'; 
eval{ mys( 'hello' ) }; 
print 'there'; 
eval{ mys( 'die' ) }; 
print 'over here';;
here
??hello??
there
??die??
over here