#!/usr/local/bin/perl

# will patse the yahoo music page for the top Music

use LWP::Simple;
$url = "http://new.music.yahoo.com";
getstore($url,'test.html');
open(fileNames,'test.html');
@lines = <fileNames>;
close(fileNames);

@music = grep(/<div class="playLinkContainer">/,@lines);

for($index = 0; $index < 10; $index++){
   $song = $music[$index];
   $start = index($song,"title")+7;
   $end = rindex($song,"\">");
   $SONG = substr($song,$start,$end-$start);
   print $SONG."\n";
    $SONG_SEARCH = $SONG;
   $SONG_SEARCH =~ s/ /+/g;
   $URL = "http://search.music.yahoo.com/search/?m=all&p=$SONG_SEARCH";
   print $URL."\n";
}