Select Code to Download

  # This is untested.  Test on sample data that
  # doesn't matter before using on live data.
...
       $del->execute($$line{Name});
    }
  }

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/