perl - Perlを使用してURLに変数を渡す方法は?

Question

URL でパラメータを渡そうとしています。何が欠けているのかわからないので、このスクリプトを実行した後に URL がどのように表示されるかを調べてみました。

my $request3 = HTTP::Request->new(GET => $sql_activation);

my $useragent = LWP::UserAgent->new();
$useragent->timeout(10);

my $response2 = $useragent->request($request3);
if ($response2->is_success) {

    my $res2 = $response2->content;

    if ($res =~ m/[#](.*):(.*)[#]/g) {
        my ($key, $username) = ($1, $2);
        print "[+] $username:$key \n\n";
    }
    else {
      print "[-] Error \n\n";
    }
}

my $link =
      "http://localhost/wordpress/wp-login.php?action=rp&key=" 
    . $key
    . "&login="
    . $username;

sub post_url {

    my ($link, $formref) = @_;

    my $ua = new LWP::UserAgent(timeout => 300);
    $ua->agent('perlproc/1.0');
    my $get = $ua->post($link, $formref);

    if ($get->is_success) {
        print "worked \n";
    }
    else {
        print "Failed \n";
    }
}

スクリプト実行後のURLはこんな感じ

site/wordpress/wp-login.php?action=rp&key=&login=