#!/usr/bin/perl

use warnings;
use strict;

$SIG{__DIE__} = sub
{
    print "Hallo\n";
};

die;