#! /usr/bin/perl

use LWP::Simple;
use strict;
open (PL, ">playlist.m3u") or die ("Cannot open playlist.m3u");
my $doc=get "http://music.podshow.com/music/listeners/unsorted.php";
$doc =~ /totalRows_unsortedmusic=(\d+).*?of.*?(\d+).*?pages/s;
my $tr = $1;
my $mp = $2;
print PL "#EXTM3U\n";
for (my $i=1; $i <= $mp; $i++){
   my @a = $doc =~ /BandHash(.*?)pluginspage/gs;
   foreach (@a) {
     /^=.*?>(.+?)<.*?<td>(.+?)<.td>.*?theFile=(.+?)"/s;
     print PL "#EXTINF:-1,$1 - $2\nhttp://music.podshow.com$3\n";
   }
   $doc=get "http://music.podshow.com/music/listeners/unsorted.php?pageNum_unsortedmusic=$i&totalRows_unsortedmusic=$tr";
}
close PL;