#!/usr/bin/perl
use strict;
use warnings
my $file = "Name.txt";
open(IN, "<", $file) or die "I cannot open a file: $file ";

# close file:

close IN;