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