use FindBin;
#my $file = "../outfiles/out.txt";
my $file = "$FindBin::Bin/../outfiles/out.txt";