Anonymous

if ((stat('omgtmpfile.xml'))[9] < time() - 60) {
    my $xml = get('http://ws.audioscrobbler.com/1.0/user/Ankle0000/weeklyartistchart.xml');
    open(my $file, '>', 'omgtmpfile.xml');
    print $file $xml;
}
  
open(my $file, 'omgtmpfile.xml');
for my $line (<$file>) {
    if ($line eq '<artist>') {

    } elsif ($line eq '</artist>') {

    } elsif ($line =~ m!<(\w+)>(.+)</\w+>!) {
        my ($tag, $value) = ($1, $2);
    }
}