CHECK {
 
   my $datapos = tell main::DATA;

   seek main::DATA,0,0;
   @lines =<main::DATA>;
   seek main::DATA, $datapos,0;

}
__DATA__
whatever