#!/usr/bin/perl

open MAIL, "|/usr/bin/mail -s gtool4-commit gtool";
while (<>) {
print;
print MAIL;
}
exit 0;