in reply to shift or die unless

$arg = shift or -M $file > 7 or die "takes one arg";

[download]

In Section Seekers of Perl Wisdom