### foo_file.pl
use strict;
use warnings;
require "fee_file.pl";

my  $foo;
print $main::fee;
print $foo = 12;
__END__
Produces the warning message:
Name "main::fee" used only once: possible typo at ...