#!/usr/bin/perl

my $prefsFileToDestroy = "/Library/Caches/GarageBand/com.apple.GarageBandAUs.plist";

if (opendir(USERHANDLE, "/Users")) {
    while (defined(my $USER = readdir(USERHANDLE))) {
        next if $USER =~ /^\./;
        next if $USER eq "Shared";
        
        my $FILETONUKE = "/Users/" . $USER . $prefsFileToDestroy;
#		print "deleting $FILETONUKE\n";
		unlink $FILETONUKE;
	}
}

unlink(glob("~" . $prefsFileToDestroy));

exit 0;
