Example:

while (<>) { # Loop through lines of standard input
  print $_;      # Print the line just read (which is magically set). 
  print;         # Does the same, because $_ is default
}

Back to Perl