#!/Perl/bin/perl

use strict;
use warnings;
use FindBin qw/$Bin/;
use FileHandle;

print "i'm in $Bin reading file $Bin/file.txt\n";

my $file = $Bin . '/file.txt';
my $fh = FileHandle->new($file, "<:encoding(UTF-8)") or die("Dannot open file: $!");

while( my $line = $fh->getline() ) {

    print $line;

}

$fh->close();