#! /usr/bin/perl

# use strict ;

$class = 'CSCI 431' ;

sub Statico {
    my ($mylet) = @_ ;
    my $class = 'ARTS 310' ;
    &ShowClass ($mylet) ;
}

sub Dynamo {
    my ($mylet) = @_ ;
    local $class = 'ARTS 310' ;
    &ShowClass ($mylet) ;
}

sub Globalo {
    my ($mylet) = @_ ;
    $class = 'ARTS 310' ;
    &ShowClass ($mylet) ;
}


sub ShowClass {
    my ($mylet) = @_ ;
    print "${mylet}-Class = ${class}\n" ;
}

sub NestedStatico {
    my ($mylet) = @_ ;
    my $class = 'ARTS 310' ;
    sub InnerClass {
	print "${mylet}-Class = ${class}\n" ;
    }
    &InnerClass ;
}

print "A-Class = ${class}\n" ;
&Statico('B') ;
print "C-Class = ${class}\n" ;
&Dynamo('D') ;
print "E-Class = ${class}\n" ;
&NestedStatico('F') ;
print "G-Class = ${class}\n" ;
&Globalo('H') ;
print "I-Class = ${class}\n" ;