Select Code to Download

$SIG{__WARN__} = sub {
  my $message = shift;
...
  $message =~ s/^/$prefix/gm;
  die $message;
};