use FindBin ();

my $file = $FindBin::Bin . '/file.txt';