Select Code to Download

UNITCHECK {
  my $pos=tell DATA;
...
  $main::SOURCE{$0}=[<DATA>];
  seek DATA,$pos,0;
}