use FindBin;
my $file = "$FindBin::Bin/files/file.txt";