my $filename = 'input.txt';
open my $fh, '<', $filename || die $!;