Select Code to Download

use 5.010;
use strict;
...
};

say $@ ? "ERROR" : "no error caught";

my $success = eval { ...; 1 }