eval q!die!; if ($@) { die $@ }