#!/usr/bin/perl -w

$user = "/home/john";
$lib = "/lib";

&directs($lib);
&directs($user);

sub directs {
    foreach (@_) {
        opendir(DIRS,$_);
        @tmps = readdir(DIRS);

        closedir(DIRS);
    }
    &remove;
}

sub remove {
    foreach $line(@tmps) {
    if (($line =~ /~$/ ) || ($line =~ /^core\./)) {
    unlink "$line";
        #print "$line\n";
    }
  }
}