Select Code to Download

  my $caught_sigint = 0;
  local $SIG{INT} = sub { $caught_sigint = 1 };

...
  if ( $caught_sigint ) {
      die "<<pithy message here>>\n";
  }