open(
  my $fh,
  '<',
  'text.txt',
) or die "died";