Select Code to Download

#!/usr/bin/perl
use warnings;
...

eval { works();  1 } or warn "w: $@";
eval { doesnt(); 1 } or warn "n: $@";

CMD: transref_seq_add. at ./1.pl line 18.
DOES transref_seq_add. at ./1.pl line 20.
...
KEY: HASH(0x563da0230d58). at ./1.pl line 35.
Use of uninitialized value in concatenation (.) or string at ./1.pl li
+ne 36.
CMD: . at ./1.pl line 36.