#!/usr/bin/perl

Xchat::register("blah", "blah", "blah");

Xchat::hook_command("back_talk", "back_sub");


sub back_sub {
	$x = "";
	$x = $_[1][1];
	$x = reverse $x;

	Xchat::command("say $x");
	return 1;
}