sub putfile($@) { my $f = shift; local *F; open(F, ">$f") or die "putfile:cannot open $f:$!"; print F '' unless @_; while (@_) { print F shift(@_) } close(F); }