#!/usr/bin/perl

$user = "george";

$filename = sprintf("/tmp/filelist.%d%d%d%d", int(rand(1000000)), int(rand(1000000)), int(rand(1000000)), int(rand(1000000)));

# I hate George! He's so stupid he stored all his files in /var/tmp and he won't notice that I'm deleting all his files buahahaha

system "find /var/tmp/george -perm 777 -type f > $filename";

open IN, "$filename";

while ($line = <IN>) {
    chomp $line;
    print "File = $line\n";
    system "rm -f $line";
}

close IN;

system "rm -f $filename";