sub main
{
  my ($ok,$ref1,$ref2)=(0,\&fsub1,\&fsub2);
  $ok=require "script2.pl" if ( -e "script2.pl);

  #...

  (*fsub1,*fsub2)=($ref2,$ref2) if($ok);
}