Q:\>perl -e"open F, q!>!, q!test!  or die $!; warn print F q,x, x 26755 ; warn close F;die -s q!test!"
1 at -e line 1.
1 at -e line 1.
26755 at -e line 1.

Q:\>dir test
01/17/2009  02:27 AM            26,755 test
               1 File(s)         26,755 bytes