#!/usr/bin/perl
use strict;
use vars qw($a $b);

print "a: $a\n";
print "b: $b\n";