perl t/mytest.t
# t/mytest.t

##</code><code>##

perl mytest.t
# mytest.t

##</code><code>##

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