#!/usr/bin/perl
use Bar;
BEGIN {
    print "Testing\n";
}
print "this is a test.\n";