use threads; 
use threads::shared; 
use Data::Types qw(:all);
use Price_calc qw[ $stringsent $stringsentback @arraysent @arraysentback @arraysentprice @arraysentbackprice];
use IO::Tee;

# perl trackit.pl *.*

# =========================================  Set changables
my @threads;
my $maxthreadama=4;    # MAX NUMBER OF simultanous Lookup Calls
my $keepgoing="keepgoing";
my @trackinglist;my @trackingfilelist;my @datain;my $filename;


    foreach $file (@ARGV) {
if ($file =~ /txt/) {push (@trackinglist,$filename);}
                          }

print "@ARGV\n";

print "T1:@trackinglist \n";


system("pause");