Depende un poco del sistema operativo. unlink() devuelve el número de elementos que ha borrado.
Prueba a hacer un print antes para saber qué es lo que estás intentando borrar:
Using perl Syntax Highlighting
print "$rootdir/*.*";Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Quizás debas poner
Using perl Syntax Highlighting
unlink <$rootdir\
*.*>;Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
(lo de usar '/' o '\' depende un poco de tu sistema operativo.
O también, entrar en el directorio y borrar:
Using perl Syntax Highlighting
chdir $rootdir;
unlink <*.*>;Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
PERO YO NO LO HARÍA SIN COMPROBAR ANTES QUE EL chdir() HA FUNCIONADO CORRECTAMENTE.
¿Puedes poner el resultado del print, aquí?