use diagnostics;
my $x = 2;
print $x / 0;