Select Code to Download

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

my $filename = shift;
return unless(defined $filename && $filename ne '');

my $filename = shift or return;