&death7;
death6();
 
sub AUTOLOAD {
  print "undefined sub $AUTOLOAD was called\n";
}