sub s {
    die "missing arg" unless @_;
    my $arg = shift;
}