#!/usr/bin/perl -dl
BEGIN { DB::parse_options("NonStop=1"); }

use B::Deparse;
$deparse =  B::Deparse->new();
sub code { return $deparse->coderef2text($_[0]); }
# p code ( \&Some::sub )

# Setup up env here

print <<'TIPS';
-----------------------------------------------------
instructions and defined variables here
-----------------------------------------------------
TIPS

DB::parse_options("NonStop=0");