#!/usr/bin/perl

use strict;
use vars qw($foo);

$foo = "bar";
print $foo, "\n";