print $Job->{'Sub'}; ergibt CODE(0x1234567)