use strict; use LWP::UserAgent; use HTTP::Request::Common; use HTTP::Cookies; my $mode = 'export'; my $username = 'oppara'; my $password = 'pass'; my $cookie_file = '/path/to/cookie.txt'; my $bak_file = '/path/to/hatena.bak'; my $export_ur…