a simple perl script

#!/usr/bin/perl -w

#use strict;

IRC::register ("xchat2 request script", "0.0.1", "", "");
IRC::add_command_handler("request", "main");

sub p  {
    my $url = shift;

    IRC::command("/say !request $url");
}

sub main  {
    my $url = shift;

    IRC::command("/say !request $url");

    Xchat::hook_timer(10000, p);

    return 1;
}