#!/usr/bin/perl -w  
BEGIN {
    # handle -d by itself to start the debugger
    @ARGV = grep { $_ eq '-d' ? !($opt_d=1) : 1 } @ARGV;
    exec('/usr/bin/perl','-dS',$0,@ARGV) if $opt_d;
}
...