#!/usr/bin/perl 

Xchat::register("Exaile Script", "0.1", "", "");
Xchat::print"Loading Exaile Script";
Xchat::hook_command("exaile", "exaile");

sub exaile
{
        $string= `exaile --query | sed -e 's/.*self: //' -e 's/artist:/\-/' -e 's/album: /(/' -e 's/ length:.*/)/'`;
        chomp($string);

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