#!/usr/bin/perl -w

use strict;

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

die "3";