#!/usr/local/bin/perl -w

use strict;

##</code><code>##

open(FH, "<file.txt") or die "Could not open file.txt: $!\n";