use diagnostics qw(-module=perl -file=./dummy.txt);
my $y = 2;
print $x / 0;