FILE=prog.pl
{
  our $var1 = 'hi';
  our $var2;
 
FILE=subs/input.pm
{
  if ($main::var1 =~ //)

FILE=subs/output.pm
{
  if ($main::var1 =~ //)