use 5.010; use ExtUtils::MakeMaker; use MIME::Base64; use Storable; # See lib/ExtUtils/MakeMaker.pm for details of how to influence # the contents of the Makefile that is written. WriteMakefile( NAME => 'Posterous', VERSION_FROM => 'lib/Posterous.pm', ABSTRACT_FROM => 'lib/Posterous.pm', MIN_PERL_VERSION => '5.010', PREREQ_PRINT => 1, PREREQ_PM => { 'LWP::UserAgent' => 0, 'HTTP::Request' => 0, 'Rubyish::Attribute' => 1.1, 'MIME::Base64' => 0, 'Attribute::Protected' => 0, 'XML::Simple' => 0, }, AUTHOR => 'shelling ', clean => { FILES => "Posterous-* MANIFEST.bak MANIFEST" }, ); say "Please enter your account data for testing. Remark! it will use it to do some HTTP POST!"; $mail = prompt("mail:"); $pass = prompt("pass:"); store([encode_base64($mail), encode_base64($pass)], "/tmp/.posterous");