Dann nutz lieber Tools, die Dateien "sicher" loeschen.
Ich moechte mal bezweifeln, dass sowas ueberhaupt ohne weiteres geht und mit Perl denke ich gehts auf jeden Fall nicht.