#!/usr/bin/perl -w

     use strict;

     PutFoo();

     my $foo;
     BEGIN { $foo = "Goo"; }

     PutFoo();

     sub PutFoo
     {
             print "Boo hoo, foo is $foo\n";
     }