empty-trashes.pl

#!/usr/bin/perl
use strict;
use warnings;

sub spawn {
    if ( !fork ) {
        system @_ and die;
        exit 0;
    }
}

spawn "srm -srfv /Users/".quotemeta(scalar getpwuid $>)."/.Trash/*";

for my $dir ( glob "/Volumes/*" ) {
    spawn "srm -srfv \Q$dir\E/.Trashes/\Q$>\E/*";
}

1 while -1 != wait;