#!/usr/bin/perl -w

use strict;

sub foo();

# main:
{
  my $bar = "I can see you";

  &foo;
}

sub foo()
{
  print "inside foo:  $bar\n";
  return(0);
}