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