#!/usr/bin/perl -wuse strict;open(FH, '<', 'yourFileName.dat') or die "We have a problem: $!";close FH;