sub postTrackbacksFromMyBlog {
    my %post;                       # トラックバックの内容のハッシュ(連想配列)

    $post{'title'} = 'タイトル';    # ブログのタイトルではなくエントリ(記事)のタイトル
    $post{'excerpt'} = '概要';      # ブログのエントリ(記事)の概要。要約。
                                    # 多くの場合、記事の内容の頭から十数文字〜数百文字が使われるようです。
    $post{'url'} = '送信元URL';     # ブログのURLではなくエントリ(記事)へのパーマリンク(Permalink; 固定リンク)のURL
    $post{'blog_name'} = 'Blog名';  # ブログのタイトル。
    $post{'charset'} = 'euc';       # 送信側の文字のエンコード。
                                    # EUC-JPの場合は'euc'でいいと思いますがブログによって実装が異なっている可能性はあります。

    my @to = (送信先URLの入った配列);    # トラックバックURL。
                                         # 複数のURLに送信するスクリプトにしてみました。というわけで配列。

    foreach (@to) {
        my $error = 1;

        require LWP::UserAgent;
        use HTTP::Request::Common;
        my $ua = LWP::UserAgent->new;
        my $response = $ua->request(POST "$_", \%post);
        if ($response->is_success) {
            if ($response->content =~ m`<error>(.+)</error>`i) {
                $error = $1;
            }
        }

        if ($error) {
            print "$_には送信できませんでした。\n";
        } else {
            print "$_に送信できました。\n";
        }
    }
}