($arg = shift || die "takes one arg") unless -M $file >7;

##</code><code>##

$arg = shift || (die "takes one arg" unless -M $file >7;)