#!/usr/bin/perl -w 
        use WWW::Mechanize; 
        #$url = 'http://dir.xiph.org/by_format/MP3?search=MP3&page=0'; 
        $ice = 'http://dir.xiph.org'; 
                 
        $url = $ARGV[0];     
   $m = WWW::Mechanize->new(); 
   $m->get($url); 
   $c = $m->content; 
        @stations = $c =~ m{onclick=.javascript:pageTracker._trackPageview\(./stream/website.\)\;.>(.*?)</a></span>}gs 
                or die "Can't get station name\n"; 
                 
        @urls = $c =~ m{<span class=.name.><a href=.(.*?)\"}gs 
                or die "Can't get urls\n"; 
                 
        @folder = $c =~ m{<p>\[ <a href=.(.*?)\"}gs 
                or die "Can't get streams\n"; 
                 
        foreach $folder (@folder){ 
                push(@streams, $ice . $folder); 
                } 
         
        @inline_tags = $c =~ m{<ul class=.inline-tags.>(.*?)</ul>}gs 
                or die "Can't get Inline Tags\n"; 
        foreach (@inline_tags) { 
$_ =~ m{(.*?)<li><a href=.\/by_genre\/(.*?)\"}gs 
                or die "Can't get Playlist Streams\n"; 
push(@genre, $2); 
        }         
                 
        $len = $#stations; 
         
                foreach (@streams) { 
                $m->get($_); 
                $d = $m->content; 
                push(@pl, $d); 
                } 
foreach $num (0..$len){ 
        print $stations[$num] . "," . $streams[$num] . "," . $urls[$num] . "," . $genre[$num] . "," . $pl[$num] . "\n\n\n"; 
        }