sub id3() { 
$i = 0; 
    
   while ($i < $sizeOfFiles) { 
    
     $mp3_file = new MP3::ID3v1Tag($files[$i]); 
    
    $artist = $mp3_file->get_artist(); 
    $album = $mp3_file->get_album(); 
    $title = $mp3_file->get_title(); 
    
    #Titelnummer suchen 
    $files[$i] =~ /(\d*)/; 
       
      rename $files[$i], "$artist - $album -$1- $title"; 
    $i++; 
  
   }#while 
    
}#end id3 

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 

rename $nix, $auchnix;

rename $nix, $auchnix;

rename($src, $target) or die $!;

$mp3->close();