Help for this page
while ($v->get_property('block') < $bcount) { print $fh "Some Something "; }
while ($v->get_property('block') < $bcount) { $fh = $v->open('w'); print $fh "Some Something "; close $fh; }