C:\test>perl -wle"
    print 'the quick brown fox' for 1..3; 
    print chr( 26 ); 
    print 'secret message'
" > junk.txt