#!/usr/bin/perl -w
open (TITLES, "< titles" );
$counter = 0;
while ($title=<TITLES>)
{
$counter ++;
$number = $counter;
if ($counter < 10)
	{	
        $number = "0$counter";
	}
chomp $title;	
$title = "$number - $title.mp3";
print $title;
print "\n";
$number = "$number.mp3";
rename $number, $title;
}
close (TITLES);