Help for this page
perl t/mytest.t # t/mytest.t
perl mytest.t # mytest.t
use FindBin; my $datafile = "$FindBin::Bin/data/test.txt"; open my $fh, $datafile or die "Couldn't open '$datafile': $!";