Select Code to Download

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

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

#!/usr/bin/perl

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

>perl 558119.pl foo
1, 2

>perl 558119.pl bar
3, 4