#!/usr/bin/perl
use Audio::MPD;

# Configure mpd location here
my $host = "localhost";
my $port = 6600;
my $server = "http://farrias.tomsk.ru/ml";
my $verifycode = "ftr";

# Initialize an MPD connection:
my $mpd = new Audio::MPD($host, $port, "", $REUSE);

sub song_change
{
    my ($artist, $title, $time) = @_;
   # Post a test notification
# print("Scrobbling: $title\n");
      `wget "$server/log.php?$verifycode&$artist&$title&$time" -O /dev/null 2>> /dev/null`
}

# Get the current song
my $current_song = $mpd->current->title;

while(1)
{
        if($current_song ne $mpd->current->title) {
           # Set it to the current title
               $current_song = $mpd->current->title;

             # Display current song
#             print "Song change: ".$current_song."\n";
           song_change(my @arr=($mpd->current->artist,$mpd->current->title,$mpd->current->time));
    }

       # Sleep for 2 seconds.  This puts us a maximum of 2 seconds 
        # behind the times, but eats less cpu than a shorter sleep.
 sleep 2;
}

#!/usr/bin/perl
use Audio::MPD;

# Configure mpd location here
my $host = "localhost";
my $port = 6600;

# Initialize an MPD connection:
my $mpd = new Audio::MPD($host, $port, "", $REUSE);

# Get the current song
my $current_song = $mpd->current->title;

while(1)
{
        if($current_song ne $mpd->current->title) {
           # Set it to the current title
               $current_song = $mpd->current->title;

             # Display current song

          print $current_song; #Replace for actual command
    }

       # Sleep for 2 seconds.  This puts us a maximum of 2 seconds 
        # behind the times, but eats less cpu than a shorter sleep.
 sleep 2;
}