while (<'FILE'>) {
  $gline = $_;
  print $gline;
}