package test; use strict; use warnings; use IPC::Open2; sub errormap { my $errormaplist=shift; #print $errormaplist."\n"; open (DATEI, "errormap.txt"); @errormaplist=; close (DATEI); } 1;