title: Can't use string ("XXX") as a symbol ref while "strict refs" in use
body: <p>This is the log I am trying to parse:</p>
  
  <pre><code>06:27:54 /data/noc/startup/startup_ptf_pats.sh startup initiated by waljoh @ Tue Nov  1      06:27:54 EDT 2011
  06:27:54 /data/noc/startup/startup_ptf_pats.sh verifying that engine is change controlled
  06:27:54 /data/noc/startup/check_change_controlled_files.sh all change controlled commands files are in synch
  06:27:54 /data/noc/startup/check_today_is_holiday.sh Today is NOT a holiday
  06:27:54 /data/noc/startup/check_ntpq.sh 159.79.35.42 time offset (0) is below 100   
  </code></pre>
  
  <p>This is the script  I wrote:</p>
  
  <pre><code>#!/usr/bin/perl
  use warnings;
  use strict;
  
  my $todays_date = `/bin/date +%m-%d-%y`;
  chomp $todays_date ;
  
  my $grabDIR = "/data/noc/startup/logs/";
  my $grabFILE = "pats." . "$todays_date" . ".txt";
  
  print "$grabDIR$grabFILE\n" ;
  
  my FILE;
  open (FILE, "more $grabDIR$grabFILE | ");
  while (&lt;FILE&gt;) {
          my $line = $_;
          print $line
          sleep 1;
  }
  </code></pre>
  
  <p>This is the error:</p>
  
  <blockquote>
    <p>/data/noc/startup/logs/pats.11-01-11.txt
    Can't use string ("06:27:54 /data/noc/startup/start") as a symbol ref while "strict refs" in use at ./log_grap line 17,  line 1.</p>
  </blockquote>