#!/usr/bin/perl

{  # Undef $/ (the input record separator, dummy!) locally so we can slurp
   # the entire input file at once.  See Programming Perl book, page 666.
  local $/;
  open(FH,$ARGV[0]);
  $_ = <FH>;
}

 print "I'm working on >$_<\n";