use vars qw($xpdat1 $dat1); 
my($xpdata,$data,$md,$nodat) = 0; # vars for next block
my$df = 'some.data';

if(-e $df){ 
     if(eval "require '$df'"){
          $md = (stat($df))[9];
          $xpdata = $xpdat1;
          $data = $dat1;
          }
     }
else{ $nodat = 1 }