#!/usr/local/bin/perl -wuse blib;use Net::SMTP;use Getopt::Long;=head1 NAME    smtp.self - mail a message via smtp=head1 DESCRIPTIONC<smtp.self> will attempt to send a message to a given user=head1 OPTIONS=over 4=item -debugEnabe the output of dubug information=item -helpDisplay this help text and quit=item -user USERNAMESend the message to C<USERNAME>=head1 EXAMPLE    demos/smtp.self  -user foo.bar    demos/smtp.self -debug -user Graham.Barr=back=cut$opt_debug = undef;$opt_user = undef;$opt_help = undef;GetOptions(qw(debug user=s help));exec("pod2text $0")    if defined $opt_help;Net::SMTP->debug(1) if $opt_debug;$smtp = Net::SMTP->new("mailhost");$user = $opt_user || $ENV{USER} || $ENV{LOGNAME};$smtp->mail($user) && $smtp->to($user);$smtp->reset;if($smtp->mail($user) && $smtp->to($user)) {  $smtp->data();  map { s/-USER-/$user/g } @data=<DATA>;  $smtp->datasend(@data);  $smtp->dataend; }else {  warn $smtp->message; }$smtp->quit;__DATA__To: <-USER->Subject: A test messageThe message was sent directly via SMTP using Net::SMTP.The message was sent directly via SMTP using Net::SMTP