perl short spam script

perl -we '@_=`find /tmp/mail -type f`;foreach $_(@_){chomp; print "spaming $_\n"; system ("cat $_|sendmail user");}'

for bash:

for i in /var/SPAM/* ; do cat $i | sendmail sed ; echo "spaming $i"; done