Language Basics Perl

#!/usr/local/bin/perl 
print while (<>);