sub logger{
    my $entry = shift(@_);
    my $logpath = 'C:\\Logs\\MailServer\\';
    use vars qw($sec $min $hour $mday $mon $year $wday $yday $isdst);
    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
    my $datestamp = (1900+$year).'_'.(1+$mon).'_'.$mday;
    my $timestamp = '~<'.$hour.':'.$min.':'.$sec.'>~ ';
    my $logname = $logpath.$datestamp.'.log';
    if ($entry){
        open my $LOG, ">>", "$logname" or die $!;
        print $LOG "$timestamp$entry\n";
        say $timestamp.$entry;
        close($LOG);
    }
}