Index: twitter/get_oauth.pl
===================================================================
--- twitter/get_oauth.pl	(revision c78c702bb1c017f8c37d5b6e1068e65934244b65)
+++ twitter/get_oauth.pl	(revision 1680a86dbcb5e3096eb1dc0a03da0d637131aa5b)
@@ -5,6 +5,11 @@
 use Net::Twitter;
 
-my $consumer_key = 'CONSUMER_KEY';
-my $consumer_key_secret = 'CONSUMER_KEY_SECRET';
+use YAML::Tiny;
+my $config = (YAML::Tiny->read('config.yml'))->[0];
+
+my $consumer_key = $config->{'consumer_key'};
+my $consumer_key_secret = $config->{'consumer_key_secret'};
+my $access_token = $config->{'access_token'};
+my $access_token_secret = $config->{'access_token_secret'};
 
 my $nt = Net::Twitter->new(
Index: twitter/nt_bot.pl
===================================================================
--- twitter/nt_bot.pl	(revision c78c702bb1c017f8c37d5b6e1068e65934244b65)
+++ twitter/nt_bot.pl	(revision 1680a86dbcb5e3096eb1dc0a03da0d637131aa5b)
@@ -5,8 +5,11 @@
 use Net::Twitter;
 
-my $consumer_key = 'CONSUMER_KEY';
-my $consumer_key_secret = 'CONSUMER_KEY_SECRET';
-my $access_token = 'ACCESS_TOKEN';
-my $access_token_secret = 'ACCESS_TOKEN_SECRET';
+use YAML::Tiny;
+my $config = (YAML::Tiny->read('config.yml'))->[0];
+
+my $consumer_key = $config->{'consumer_key'};
+my $consumer_key_secret = $config->{'consumer_key_secret'};
+my $access_token = $config->{'access_token'};
+my $access_token_secret = $config->{'access_token_secret'};
 
 my $nt = Net::Twitter->new(
@@ -18,3 +21,3 @@
 $nt->access_token_secret($access_token_secret);
 
-my $res = $nt->update({ status => "test tweet!" });
+my $res = $nt->update({ status => "Perl から Twiitter を更新するテストですよー" });
Index: twitter/twitbot.pl
===================================================================
--- twitter/twitbot.pl	(revision c78c702bb1c017f8c37d5b6e1068e65934244b65)
+++ 	(revision )
@@ -1,11 +1,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-use YAML::Tiny;
-use Net::Twitter;
-
-my $config = (YAML::Tiny->read('config.yml'))->[0];
-my $twit = Net::Twitter->new(username => $config->{'username'}, password => $config->{'password'});
-
-$twit->update('Perl から Twiitter を更新するテストですよー');