I figured it out...

use XMLRPC::Transport::HTTP;

my $server = XMLRPC::Transport::HTTP::CGI
    -> dispatch_to('weblogUpdates')
    -> handle
;

package weblogUpdates;

sub ping {
    my @params = @_;
    open (OUT,">pingdata.txt") or die "Can't open output: $!\n";
    for my $i (0..$#params) {
        print OUT "$params[$i]\n";
    }
    close OUT;
    return "thanks for the ping."
}
[download]