E:\test>dir
 Volume in drive E is New Volume
 Volume Serial Number is 1821-B83A

 Directory of E:\test

28/01/2015  08:10    <DIR>          .
28/01/2015  08:10    <DIR>          ..
28/01/2015  08:10                 0 fred
               1 File(s)              0 bytes
               2 Dir(s)  1,624,181,088,256 bytes free

E:\test>perl -E"while( <> ){ print 'got here'; }" fred

##</code><code>##

open my $fh, '<', 'C:\ppp.txt', or die "Could not open file $!";
     while (my $line = <$fh>) 
     {   foreach my $str ($line)