Select Code to Download

START:
my $interrupted = 0;
...
    goto START;
  }
}

if ($@) {
  ...
...
  print "interrupted but didn't die. Must have hit ^C during DTOR. Sor
+ry.\n";
  die "better late than never!\n";
}