sub startWith() { 
   while () { 
     print "The files should start with: "; 
     chomp($start = <STDIN>); 
     if ($start ne '') { 
        last; 
      }#if 
   }#while 
    
   $i = 0; 
   while ($i < $sizeOfFiles) { 
      rename $files[$i], "$start$files[$i]"; 
      $i++; 
   }#while 
}#end startWith