perl -e"open F, '<', $ARGV[0] or die $!; while( 1 ){ print ; Win32::Sleep 1 }" log