28 use File::Temp qw/tmpfile/;

    28 use File::Temp qw/tmpfile/;

    29 use constant ME => basename $0;

    29 use constant ME => basename $0;

    30 use FindBin qw/$Bin/;

    30 use FindBin qw/$Bin/;

    31 use POSIX qw/strftime mktime/;

    31 use POSIX qw/strftime mktime/;

    32 

    32 

    34   or do "./exim-exigrey.pl"

    34   or do "./exim-exigrey.pl"

    35   or die $!;

    35   or die $!;

    36 

    36 

    37 my $VERSION = '$Id$';

    37 my $VERSION = '$Id$';

    38 

    38