#!/usr/bin/perl -w
use strict;
use warnings;
our $error;

$error = 10;

print "before $error \n";

require 'file2.pl';  # you can use 'do' also

print "after $error \n";