use Win32::OLE;

my $fso = Win32::OLE->new('Scripting.FileSystemObject');
my $ts = $fso->OpenTextFile($rFile);

while (!$ts->AtEndOfStream) {
  print $ts->ReadLine,"\n";
};