my $reporter = Test::Reporter->new(
    grade           => $grade,
    distribution    => $localdir,
    from            => 'Jim Keenan (testing@yahoo.com)',
    comments        => $comment,
);

if ($opts{s}) {
    print "Sending mail ...\n";
    $reporter->send() || croak $reporter->errstr();
} else {
    print $reporter->subject(), "\n";
    print $reporter->from(), "\n";
    print "\nREPORT:\n\n";
    print $reporter->report, "\n";
    print $reporter->grade(), "\n";
    print "No mail sent\n";
}