BEGIN {
    if(  @ARGV  &&  "-d" eq $ARGV[0]  ) {
        shift @ARGV;
    } else {
        my $tty= ( split ' ', (grep /^tye\b/, `who`)[0] )[1];
        $ENV{PERL_DBOPTS}= "TTY=$tty";
        exec $^X, "-d", $0, "-d", @ARGV;
    }
}