#!/usr/bin/perl -w
#!C:/xampp/perl/bin/perl -w
#
#    This file is part of a perl tutorial
#
#    (C) Copyright 1999 Hans Kern
#
#    File name    : pldemo08.cgi
#    Created by   : Hans Kern
#    Creation date: 25.5.99
#

#    Scope von Objekten bei BEGIN und sub

print "Content-type:text/plain\n\n";

{
   my $global = "global";
   print $global,"\n";
   BEGIN {
      print "Content-type:text/plain\n\n";
      my $beg_var = "beg_var";
      if (defined $global) {
         print "global true: $global \n";
      } else {
         print "global false: global \n";
      }	
      print $beg_var,"\n";
   }
   sub test {
      my $sub_var = "sub_var";
      print $global,"\n";
      if (defined $beg_var) {
         print "beg_var true: $beg_var \n";
      } else {
         print "beg_var false: beg_var \n";
      }	
      print $sub_var,"\n";
   }
   {
      my $local = "local";
      test();
      print $global,"\n";
      if (defined $beg_var) {
         print "beg_var true: $beg_var \n";
      } else {
         print "beg_var false: beg_var \n";
      }	
      if (defined $sub_var) {
         print "sub_var: $sub_var \n";
      } else {
         print "sub_var used only once, uninitialized. \n";
      }	
      print $local,"\n";
   }
}