perlでtwitterに連続投稿するもの

これの，

my $twitter_username = "user_ID";
my $twitter_password = "pasuwa-do";

をいじって，

perl a.pl test
とかやれば無限ループで楽しいことに（期間限定）

#perl2exe_include HTTP::Cookies
#perl2exe_include File::Basename
#perl2exe_include Getopt::Std
#perl2exe_include File::Glob
use strict;
use LWP::Simple;
use LWP::UserAgent;
use HTTP::Request::Common;
use utf8;  	# 文字列をutf8として扱う
use Encode; 	# 文字コード変換 encode()/decode()ライブラリ

@ARGV = map { decode('cp932',$_) } @ARGV ; 

my $twitter_username = "user_ID";
my $twitter_password = "pasuwa-do";


my $twitter_ua = LWP::UserAgent->new();
$twitter_ua->credentials(
    "twitter.com:80",
    "Twitter API",
    $twitter_username => $twitter_password
    );

	my $text;

if ($ARGV[0])
    { 
      while(1){
	$text = join ' ', @ARGV; 
	if ($text ne "-"){
        	my $request = POST "http://twitter.com/statuses/update.json", [status => "$text"];
        	$twitter_ua->request($request);
	}
      }
    }