Select Code to Download

{ # braces open and close scopes

...
# message. Without "use strict", it will fail
# silently.
print $variable;

{
  package Web::Server;
...
  # shortcut for @Web::Server::ISA
  our @ISA = ('Server');
}

package MyConfig;
our $inputdir     = "/cygsrive/d/acec/CDRe/data/input/$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";