I read some of the other solutions. Of course, in Perl, there is always another way. If your using ActiveState, perl is nice enought to switch "/" to "\". The following code demonstrates it.

use strict;

my $file = "c:/My Documents/class.cpp";

open MYFILE, "<$file"
    or die "Can't open: $!";

while(<MYFILE>){
    print $_;
}
[download]