use strict;
use warnings;

print "The beginning\n";

my $flag = 1;
warn "Flag set\n" if $flag;

die "Farewell, cruel world\n";