Statement Perl

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