#!/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");