Help for this page
#! perl -slw use strict; ... print { $fhs{$first} } $rest; }
#! perl -slw use strict; ... $fh->print($rest); }