Language Basics Perl

do {
    print;
} while (<>);