10 my $parser = XML::DOM::Parser->new;
11 my $doc = $parser->parse($content);
12 my $tracks = $doc->getElementsByTagName("track");
13 if ($tracks->getLength == 0) {
14 print "Didn't recognize song\n";
17 my $track = $tracks->item(0);
18 my $title = $track->getElementsByTagName("ttitle")->item(0)->getFirstChild->getData;
19 my $artist = $track->getElementsByTagName("tartist")->item(0)->getFirstChild->getData;
21 print "$title,$artist\n";