use strict;
use warnings;
use diagnostics '-traceonly';
my $name;
print "Hello $name\n";
sub dying { my $illegal = 10 / 0;}
sub calling {dying()}
calling();
use strict;
use warnings;
use diagnostics '-traceonly';
my $name;
print "Hello $name\n";
sub dying { my $illegal = 10 / 0;}
sub calling {dying()}
calling();