{ # braces open and close scopes my $variable = "value\n"; # This works, because $variable is visible. print $variable; } # This doesn't work, because we've left the scope # where $variable was originally declared. # Under "use strict" it will generate an error # message. Without "use strict", it will fail # silently. print $variable; #### { package Web::Server; # Within this scope, we can use @ISA as a # shortcut for @Web::Server::ISA our @ISA = ('Server'); } #### package MyConfig; our $inputdir = "/cygsrive/d/acec/CDRe/data/input/$swname"; our $arbordir = "/cygsrive/d/acec/CDRe/data/output/ARBOR/$swname"; our $arborcsvdir = "/cygsrive/d/acec/CDRe/data/output/ARBORCSV/$swname"; our $fmsdir = "/cygsrive/d/acec/CDRe/data/output/FMS/$swname"; our $inbilldir = "/cygsrive/d/acec/CDRe/data/output/INBILL/$swname"; our $errordir = "/cygsrive/d/acec/CDRe/data/error/$swname"; our $filterdir = "/cygsrive/d/acec/CDRe/data/filter/$swname"; our $archivedir = "/cygsrive/d/acec/CDRe/data/archive/$swname"; our $duplicatedir = "/cygsrive/d/acec/CDRe/data/duplicate/$swname"; our $baddir = "/cygsrive/d/acec/CDRe/data/bad/$swname"; #### #!/usr/bin/perl require "./def_variable.pl"; print "INPUT : $MyConfig::inputdir\n";