#!/usr/bin/perl -d
# Make the debugger run through to $DB::single=1
BEGIN { DB::parse_options("NonStop=1"); }

# Setup environment to play around in
use My::Module;
$some_thing = My::Module->new();

$DB::single=1;
$ending = "You're about to start destruction (press w)";

__END__