
@files = `ls -rlt | grep tgz`;

foreach $f (@files)
{
 chop($f);
 print($f);
 @s = split(/\s+/,$f);
 printf("size $s[4]\t file $s[8]\n");
 if ($s[4] > 5000) { printf("Remove $s[8] ($s[4])\n"); `rm $s[8]; touch $s[8].removed`; };
}
