29 use File::Temp qw/tmpfile/;

    29 use File::Temp qw/tmpfile/;

    30 use constant ME => basename $0;

    30 use constant ME => basename $0;

    31 use FindBin qw/$Bin/;

    31 use FindBin qw/$Bin/;

    32 use POSIX qw/strftime mktime/;

    32 use POSIX qw/strftime mktime/;

    33 

    33 

    36   or die $!;

    36   or die $!;

    37 

    37 

    38 my $VERSION = '$Id$';

    38 my $VERSION = '$Id$';

    39 

    39 

    40 my $opt_list;

    40 my $opt_list;