my $inputdir 	= "/cygsrive/d/acec/CDRe/data/input/$swname";
my $arbordir 	= "/cygsrive/d/acec/CDRe/data/output/ARBOR/$swname";
my $arborcsvdir = "/cygsrive/d/acec/CDRe/data/output/ARBORCSV/$swname";
my $fmsdir 	= "/cygsrive/d/acec/CDRe/data/output/FMS/$swname";
my $inbilldir 	= "/cygsrive/d/acec/CDRe/data/output/INBILL/$swname";
my $errordir 	= "/cygsrive/d/acec/CDRe/data/error/$swname";
my $filterdir 	= "/cygsrive/d/acec/CDRe/data/filter/$swname";
my $archivedir 	= "/cygsrive/d/acec/CDRe/data/archive/$swname";
my $duplicatedir= "/cygsrive/d/acec/CDRe/data/duplicate/$swname";
my $baddir 	= "/cygsrive/d/acec/CDRe/data/bad/$swname"

##</code><code>##

#!/usr/bin/perl

require "./def_variable.pl";
print "INPUT : $inputdir\n";