my $ok = eval { read_genome(); read_mapfile(); read_GTF(); read_RM(); 1; }; if( ! $ok ) { warn "Got error while reading: $@"; };