Twitterでアイコン変えるコード

#!/usr/bin/perl

# TWITTER ICON CHANGER

use strict;

use LWP::UserAgent;

use HTML::TagParser;

my $NAME = "twitter icon changer 070706002";

my $FILENAME = 'a.jpg';

my $email = 'username';

my $password = 'password';
my $ua = new LWP::UserAgent;

$ua->agent($NAME . $ua->agent);

$ua->cookie_jar( {} );
my $res=$ua->post( 'https://twitter.com/sessions',

                Content_Type => 'application/x-www-form-urlencoded',

                Content => [ 'username_or_email' => $email,

                             'password' => $password,

                             'commit' => 'Sign In' ]);


$res = $ua->get( 'http://twitter.com/account/picture' )->content;
my $siv = HTML::TagParser->new( $res )->getElementById( "siv" )->getAttribute('value');;
$res=$ua->post( 'http://twitter.com/account/picture',

                Content_Type => 'multipart/form-data',

                Content => [ 'user[profile_image_temp]' => '',

                             'user[profile_image]' => [$FILENAME],

                             'siv' => $siv,

                             'commit' => 'save' ]);

まったくひねり無し。

• -

適当な画像にアイコンを変えた後で、自分の前つかっていたアイコンが見つからずに焦った(;´Д`)