open (GWFILE, "/tmp/logfile");
#open (GWFILE, "/opt/logfile");

for (;;) {
  my $curpos;
  for ($curpos = tell(GWFILE); <GWFILE>; $curpos = tell(GWFILE)) {
      print;
  }
  # sleep for a while
  sleep 1;
  seek(GWFILE, $curpos, 0);  # seek to where we had been
}