I often have a dbg script for a project that sets
up the environment and a few objects, saving me from
doing that manually each time I want to try something out.

#!/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__