sub somefunc { open my $f, "<", shift or die 'cannot open file' };