our $ERROR_FILE			= $cgi_dir."files/logs/errors.txt";

##</code><code>##

use strict;

package RecordError;

sub RecordError
{
my $error = shift;

## $ERROR_FILE is global var ##

open OF, ">>$ERROR_FILE" or die "cannot open ERROR_FILE $ERROR_FILE\n";
print OF "$error\n";
close OF;
}
1;

##</code><code>##

Global symbol "$ERROR_FILE" requires explicit package name at E:/....../lib/RecordError.pm line 12.