# Kod usuwa plik

use Win32::OLE;
$Win32::OLE::Warn = 3;

# ------ KONFIGURACJA SKRYPTU ------
$strFilePath = '<ciekaPliku>';
# np. "d:\scripts\test.txt"
# ------ KONIEC KONFIGURACJI ---------
$objFSO = Win32::OLE->new('Scripting.FileSystemObject');
$objFSO->DeleteFile($strFilePath);
print "Usuwanie pliku zostao zakoczone powodzeniem.\n";
