use strict;
use warnings;

# ...

my $x = 1 / 0;

# ...


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