I can give you only a short sketch.

Say you have an URL which when requested returns HTML code containing
25 other links. This could be done with LWP. If you have MacPerl 5.6.1b_
then open the file "lwpcook.pod" with Shuck and learn the basics.

I would then extract links and store them in an array like this
  @songs = ( 'song1', 'song2', ... )

Now get a radom index:
  srand time;
  my $rand = int( rand( @songs ) );
and the data for this random song
  my $randsong = $songs[ $rand ];


Good luck,
Axel.

Reply via email to