#!/usr/bin/perl -wuse strict;open(FH, '<', 'yourFileName.dat') or die $!;print "goodopen.dat opened successfully\n";close FH;