#!/usr/local/bin/perl

for ($count = 1; $count <= 5; $count++) {
        $line = <STDIN>;
        last if ($line eq "");
        print ($line);
}
