#!/usr/bin/perl
$count = 0;
$count_skip = 0;

while($line = <STDIN>) {
	chomp($line);



  (

        $rights,
        $prop,
        $uid,
        $gid,
        $size,
        $day,
        $month,
        $date,
        $time,
        $year,
        $user_name

  ) = split(" ", $line);


# Remove User Files w/0 size

next if $user_name eq " ";
next if $user_name eq "";

$count_skip++ if $size != "0";
next if $size != "0";
next if $user_name eq "zero-erase.txt";

$count++;
print "rm -rf " . $user_name . "\n";

system( "rm -rf " . $user_name ."\n");

}

print "\n\nTotal Removed: " . $count . "\n";
print "Total Skipped: " . $count_skip . "\n";

exit;