our $var_a = 1;
our $var_b = 2;
1;

##</code><code>##

our $var_a = 3;
our $var_b = 4;
1;

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

do $ARGV[0].'.pl' or die;

our $var_a;
our $var_b;
print("$var_a, $var_b\n");

##</code><code>##

>perl 558119.pl foo
1, 2

>perl 558119.pl bar
3, 4