#!/usr/local/bin/perl
# Jaime Prilusky, 2004

  sub visible {
      print "var has value $var\n";
  }

  sub dynamic {
      local $var = 'local';   # new temporary value for the still-global
      visible();              #   variable called $var
  }

  sub lexical {
      my $var = 'private';    # new private variable, $var
      visible();              # (invisible outside of sub scope)
  }

  $var = 'global';

  visible();                  # prints global
  dynamic();                  # prints local
  visible();                  # just to see what's there
  lexical();                  # prints global