#! /usr/bin/perl

package ERRORCODEOBJ;

use strict;
use warnings;


sub new
{
  my $zeiger=[ ];
   bless($zeiger);
}

sub errormap
{
	
	my $self = shift;
	#$$line[0]=$_[0];
	my ($line) = @_;
	
	open( my $errormaplist, '<', 'errormap.txt' ) or die "Fehler: $!";
	my @lines = <$errormaplist>;
	close $errormaplist;
	
	#print $lines[ $linenr ];
	my $ausgabe = $$errormaplist[$$line[0]];
	return $ausgabe;
}

my $objekt3=ERRORCODEOBJ->new();
$objekt3->errormap(1);