my $file = shift;

## instead of 

my $file = pop();