use Win32::OLE;

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

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

Advantage: None. Its just another WTDI, although you can also do things like BuildPath with $fso and get DateCreated, DateLastAccessed, DateLastModified of files.

Disadvantage: Only works with Win32.