s(0); # Aufruf mit 0

sub s {
    my $arg = shift or die("Missing arg.");
}