package MyDie;
use strict;
use warnings;
sub mydie
{
    local *I;
    open I, "<", "ChangeLog";
    my $s = <I>;
    die "Hello";
}
1;