use FindBin;
my $datafile = "$FindBin::Bin/data/test.txt";
open my $fh, $datafile
    or die "Couldn't open '$datafile': $!";