use strict;
use warnings;

my $foo=1;

BEGIN { die "Dead\n" }

print "hello\n";
print "hello\n";
print "hello\n";
print "hello\n";
print "hello\n";
print "hello\n";
print "hello\n";
print "hello\n";
print "hello\n";