#!/usr/local/bin/perl

open (LIST, "find . -name '*~' -print|") || die 'what?';

while (<LIST>)
  { $filename = $_;
    print $filename ;
    chop $filename ;
    unlink $filename ;
  }

close (LIST);
open (LIST, "find . -name '#*#' -print|") || die 'what?';

while (<LIST>)
  { $filename = $_;
    print $filename ;
    chop $filename ;
    unlink $filename ;
  }

close (LIST);
