#!/usr/bin/perl

if ($#ARGV == 0) {
        $lastfmuser=$ARGV[0];
        } else {
        $lastfmuser = "econan";
        }

my $url = "http://ws.audioscrobbler.com/1.0/user/$lastfmuser/recenttracks.txt";

use LWP::Simple ;

my $sarkilar = get $url;
die "Couldn't get $url" unless defined $sarkilar;

@satirlar = split (/\n/, $sarkilar);
foreach $satir (@satirlar){
        @veriler = split (/,/, $satir);
        print localtime($veriler[0]). "-" . $veriler[1] . "\n";
}