Danke. Kannst du mir noch sagen, wozu

my $file = shift;

gemacht wird? $file existierte doch noch gar nicht?