sub errorcode {
    my ($linenr) = @_;

    open my $errormap, '<', 'errormap.txt' or die $!;
    my @lines = <$errormap>;
    close $errormap;

    print $lines[ $linenr-1 ];
}