Language Basics Perl

while (<>) {
    print;
}