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

##</code><code>##

defined(my $filename = shift) or return;