#!/usr/bin/perl -w

BEGIN {
        use vars qw($foo);
        $foo = 'bar';
}

use strict;

print "$foo\n";