#!/usr/bin/perl -w

use strict;

$SIG{__DIE__} = sub {
  print "redirecturl?error='@_'\n";
  exit(1);
};

die "3";

##</code><code>##

#!/usr/bin/perl -w

use strict;

$SIG{__DIE__} = sub {
  my $why = shift;
  $why =~ s/( at.*)?\n$//;
  print "redirecturl?error='$why'\n";
  
  exit(1);
};

die "3";