C:\temp>perl -le "open F, '>F'; print -t *F; print -t *STDOUT"

1