diff -uNr MixiMessageExporter/MixiMessageExporter.pl MixiMessageExporter-hardcoding/MixiMessageExporter.pl
--- MixiMessageExporter/MixiMessageExporter.pl	2005-01-31 00:29:10.000000000 +0900
+++ MixiMessageExporter-hardcoding/MixiMessageExporter.pl	2005-01-31 13:15:25.000000000 +0900
@@ -15,18 +15,18 @@
 use Mail::Sender;
 use Digest::MD5 qw(md5_hex);
 
-my $data_dir = 'data\\';
+my $email = 'info@example.org';
+my $password = 'password';
+my $smtp = 'localhost';
 
-die "usage: MixiMessageExporter.exe <mail> <password> <SMTP host>\n"
-	if @ARGV < 3;
+my $data_dir = 'data\\';
 
 print "\nMixiMessageExporter 0.01\n------------------------\n";
 
 # データ保存用ディレクトリを作成
 mkdir $data_dir unless -d $data_dir;
 
-my ($email, $password, $smtp) = @ARGV;
-
 my $mixi = WWW::Mixi->new($email, $password);
    $mixi->agent('MixiMessageExporter/0.01');
    $mixi->login;