Perl: while read LINE

# similar to BASH while read LINE loop. Not typing more!

open FH, "mytext.txt";
while (FH) {
 chomp;
 print $_ ;
}