#!/usr/bin/perl -w

     use strict;

     PutFoo();

     my ($foo) = "Goo";

     PutFoo();

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