Help for this page
sub readfile { my $filename = shift or return; ... }
defined(my $filename = shift) or return;