sub exec_job
{
  buggy(, , "Subroutine \"exec_job\" Anfang");
  print "exec_job\n";

  my $job = $_; #Funktioniert nicht
  #my $job = shift; #So geht's, aber warum?
  print "Übergeben wurde: $job\n";