ls | perl -ne ‘$a=$_;chomp $a;$b=”mutt -s \”poza $a\” -a $a <email> < message.txt\n”;print $b;`$b`’

Related posts:

1. Fix Apache – No space left on device: Couldn’t create accept lock
2. Perl script to read .dbx files