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