How to print content of a file in Perl ?

$file="c:\text.txt";
open H, $file;
while () {
print "Line number $. is : $_";
}