http://qs1969.pair.com?node_id=138924


in reply to File Find

Parameters for subroutines are stored in @_.

You should place a $_ = shift; at the beginning of change.

Or even better:

sub change { my $file = shift; if (-f $file && $file =~ /\.html$/) { . . .