File Perl

open (FILEHANDLE, "while (defined($char = getc FILEHANDLE)){
       print $char;
}
close FILEHANDLE;