#! perl -slw
use strict;
use Junk;

our $ERROR_FILE = 'fred';

Junk::showIt();

##</code><code>##

package main;
our $ERROR_FILE;

package Junk;
use strict;
use warnings;

sub showIt {
    print $ERROR_FILE;
}

1;

##</code><code>##

C:\test>junk.pl
fred