sub {
    no warnings 'uninitialized';
    print "sub1 args(",join(",",map{ "'$_'"} caller(0)),")\n";
    print "Howdy, $_[0]!\n";
}