use strict;
use warnings;

# ...

my $x = 1 / 0;

# ...


END
{
    print "\nHit enter when done: ";
    <>;
    exit;
}

##</code><code>##

Illegal division by zero at D:\stuart\play\temp\pp.pl line 6.

Hit enter when done: