sub main { my ($msgLVL) = @_; my $sub = 'main'; print "-- Beginning [$sub]\n" if $msgLVL > 1; getInitParms($msgLVL); my @files = getFiles($msgLVL); # # my @files = ("chi_Currency_20130828*.txt"); for my $file (@files) { print "\t FILE -> $file\n" if $msgLVL > 1; moveFile($msgLVL,$file); stageExtTblFiles($msgLVL,$file); my $batch_id = loadOrders($msgLVL); archiveFiles($msgLVL, $batch_id); } print "-- Leaving [$sub]\n" if $msgLVL > 1; }