c:\@Work\Perl\monks\sierpinski>perl -wMstrict -le
"system 'echo abc > 1.txt';
 open '<:raw', '1.txt' or die $!;
 print while readline '<:raw';
"
abc