18 use strict;

    18 use strict;

    19 use warnings;

    19 use warnings;

    20 use File::Basename;

    20 use File::Basename;

    21 use File::Temp qw(tempfile);

    21 use File::Temp qw(tempfile);

    22 use File::stat;

    22 use File::stat;

    23 use Getopt::Long;

    24 use Getopt::Long;

    24 use Mail::Mailer;

    25 use Mail::Mailer;

    25 use DBI;

    26 use DBI;

    26 use MIME::QuotedPrint;

    27 use MIME::QuotedPrint;

    27 

    28 

   242     open(IN, $_ = $LOG) or die "Can't open $_: $!\n";

   243     open(IN, $_ = $LOG) or die "Can't open $_: $!\n";

   243     print $fh <IN>;

   244     print $fh <IN>;

   244     close $fh;

   245     close $fh;

   245     close IN;

   246     close IN;

   246 

   247 

   248 

   249 

   249 }

   250 }

   250 

   251 

   251 sub identity()

   252 sub identity()

   252 {

   253 {