#!/usr/bin/env perl
$message_length = `wc -c message.txt`;
if ($message_length == 0) {
    exit;
}
open(SUBJ, "subject.txt");
$subject = <SUBJ>;
chomp $subject;
system "svn update";
open(LIST, "list.txt");
while (<LIST>) {
    chomp;
    system "mail -s \"$subject\" $_ < message.txt\n";
}
system "rm message.txt ; touch message.txt";
exit;
