ちなみにwebで見つけたVBでログをクリアする方法です(バックアップする処理も含まれていますが)
perlへ移植するにはどうすればよいでしょう

----------------------------------------------------------------
Set objWMIService = GetObject("winmgmts:" _
　 & "{impersonationLevel=impersonate,(Backup)}!\\" & _
　 　 　strComputer & "\root\cimv2")

Set colLogFiles = objWMIService.ExecQuery _
　 ("Select * from Win32_NTEventLogFile where LogFileName='Application'")

For Each objLogfile in colLogFiles
　 objLogFile.BackupEventLog("c:\scripts\" & strBackupName & _
　 　 "_application.evt")
　 objLogFile.ClearEventLog()
Next