#!perl
=pod

Code submission from: Darin S. Morley (DSMorley@aol.com)

a robust code fragment for slurping a file into an array. if the open, 
file access, or close fails an error message will be generated. the 
error message will report: 1) the script that failed, 2) the file that 
it failed on, and 3) the error that occurred.

=cut

# slurping in a file
my $myfile = q(myfile);
my @data;

open(IN, $myfile) and
  (@data = <IN>) and
  close(IN) or
  die(qq($0: Failed on $myfile: $!\n)); # could use warn()