#!/usr/local/bin/perl

NEXTLINE: $line = <STDIN>;
if ($line ne "") {
        print ($line);
        goto NEXTLINE;
}
