1 while unlink($filename);

##</code><code>##

unlink($filename) while -f $filename;