Next Trivial Utilities 139

forge

        #!/usr/bin/perl
        $MAIL = '/var/qmail/bin/qmail-inject';
        use Getopt::Std;
        getopts('f:m:s:b:B') or usage();
        $opt_f or usage();
        my $m_file = $opt_m;
        my $message;
        my $subj = $opt_s;
        @ARGV or usage();
        my $to = join ', ', @ARGV;
        my $bcc = $opt_b || $ENV{FORGE_BCC} || $ENV{USER};
        my $BCC = $opt_B ? "" : "Bcc: $bcc\n";
        Bcc: mjd@plover.com


Next Menu Copyright © 2012 M. J. Dominus