#!/usr/bin/perl 

Xchat::register("Sonata Script", "0.1", "", "");
Xchat::print"Loading Sonata Script";
Xchat::hook_command("sonata", "sonata");

sub sonata 
{
        $string= `sonata info | tr '\n' ' ' | sed -e 's/Title: //' -e 's/Artist: /- /' -e 's/Album: /(/' -e 's/ Date:.*/)/'`;
        chomp($string);

   IRC::command("/me is listening to: $string");
}