my $file = './file.txt';
open(my $fh,'<',$file) or die $!;
#....