Select Code to Download

sub Save
{
    my $DirName = 'WinLog';
...
        $Log_obj->Close; # see Win32::EventLog's docs
    }
}