my $var = do 'script.cgi';
unless (defined ($var)) {
  die "Error: couldn't include script.cgi: $!\n";
}