#!/usr/bin/perl -w

IRC::register("Xmms Script", "0.1", "", "");
IRC::print "Loading Xmms scriptn";
IRC::add_command_handler("mp3", "put_current_file");

sub put_current_file
{
    open(HANDLE, "/home/h4x/.current_song");
    chomp($song = <HANDLE>);
    IRC::command("/me Estoy Escuchando . $song . - xD");
    close(HANDLE);
    return 1;
}