Select Code to Download

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

use strict;
use warnings;
...
}

eval q!die "This is a test"!; die caught if ($@);