#!/usr/bin/perl -w

use strict;
use LWP::Simple;
use XML::TokeParser;
use XML::Simple;

my $t;
my $cont = get("20.xml");
my $p = new XML::TokeParser(\$cont);
   $t = $p->get_tag("permalink");
   $t = $p->get_trimmed_text("/permalink");

      getstore($t, "20.txt");