chcp 1251 & perl -MFile::Find -E "autoflush STDOUT 1; for(;1;sleep 60) {say'--- ',~~localtime; find sub {-f && /\.part$/i && do {open $F,'<',$_; close $F; say qq`@{[-s]} bytes in $File::Find::name`}}, '.'}"  |perl e:\scripts\perl\various\tee.4.pl ~~~part-poll.log
chcp 65001 & perl -Mlib'.' -MWin32::Unicode -CS -E "autoflush STDOUT 1; for(;1;sleep 60) {say'--- ',~~localtime; findW sub {file_type(f=>$_) && /\.part$/i && sayW qq`@{[file_size $_]} bytes in $Win32::Unicode::Dir::name`}, '.'}"  |perl e:\scripts\perl\various\tee.4.pl ~~~part-poll.log

perl -MIO::Handle -E"autoflush STDOUT 1; for(;1;sleep 60){say'--- ',~~localtime; do {say; open $F,'<',$_; close $F} for split/\n/,`dir/s/b/a-d *.part`}" |e:\cygwin\64\bin\tee -i ~~~part-poll.log

start "~~~part-poll.log" /b perl -MIO::Handle -E "autoflush STDOUT 1; for(;1;sleep 60){say'--- ',~~localtime; do {say; open $F,'<',$_; close $F} for split/\n/,`dir/s/b/a-d *.part`}" |e:\cygwin\64\bin\tee -i ~~~part-poll.log