{
          my $f1 = $f . '*';
          print $f1;
          unlink glob $f1;
          unlink $f;          
        }
    }
}