TEST: EMSSIN_SR10_20061011115435.txt
TEST: EMSSIN_VOIP_20061011115435.txt
TEST: EMSSIN_SR10_20061011115435.txt
TEST: EMSSIN_VOIP_20061011115435.txt

##</code><code>##

sub splitInputFile {
        my $cnt = shift;
        my $mscname = $swname[$cnt];
        my $ftype   = $outftype[$cnt];
        my $ext     = $outfext[$cnt];
        my $indir   = $inputdir[$cnt];
        my $outdir  = $outputdir[$cnt];
        my $arcdir  = $archivedir[$cnt];

        if ( -d "$indir") {
                opendir(INDATA,$indir);
                while (my $indata = readdir(INDATA)) {
                        next if $indata !~ /EMSSIN/;
                        print "TEST: $indata\n";
                }
                closedir(INDATA);
        } else {
                print "ERROR! $indir not found\n";
        }
}