sub myfunc {
    my $arg1 = shift or (die|warn) "missing arg in myfunc";
}