sub readfile { my $filename = shift or return; ... } #### my $filename = shift; return unless(defined $filename && $filename ne ''); #### my $filename = shift or return;