sub readfile { my $filename = shift or return; ... }