sub change {
  my $file = shift;

  if (-f $file && $file =~ /\.html$/) {

.
.
.