use FindBin;
my $infile = "$FindBin::Bin/myFile.txt";