acotie

my $username = 'username';
my $password = 'pass';

# uranai_data
my $filename = './mezaura.yaml';
my $data     =  YAML::LoadFile($filename);

my $twit = Net::Twitter->new(username => $username, password => $password);

my $count = 1;

acotie

#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
$mech->agent("Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)");
$mech->add_header( 'Referer', "http://bijint.com/jp/" );

my $base_url = 'http://www.bijint.com/binan/img/clk/';

acotie

#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
$mech->agent("Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)");
$mech->add_header( 'Referer', "http://bijint.com/jp/" );

my $base_url = 'http://www.bijint.com/binan/img/clk/';

acotie

#!/usr/bin/perl
use strict;
use warnings;
use Config::Pit;
use AnyEvent::Twitter;
use AnyEvent::Twitter::Stream;
use Mac::Growl ':all';
use Encode;

# Setting