{ # 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";