renombrar archivos

[maurimono]

mira. parece que estoy cerca de la solucion. pero no funciona el rename

Código:

@files = `dir c:\perl\p /b /on *.txt`;
$mm=10;
foreach $x (@files) {
   $nom=substr($x,0,length($x)-6);
   $ext='txt';
   rename("$x","$nom.$mm.$ext");
   print "$nom.$mm.$ext\n";
   $mm++;
  }
$val=<STDIN>;

Gracias por tu ayu da