Gyoza no Oushou

gyoza.pl

#!/usr/bin/perl

use strict;
use warnings;
use Encode;
use utf8;
use Net::Twitter::Lite;
use YAML::Syck;

my $conf = YAML::Syck::LoadFile('config.yml');
my $nt = Net::Twitter::Lite->new(
	%$conf,
	ssl => 1,
	traits => [qw/API::REST OAuth WrapError/],
);

$nt->update(decode_utf8($_)) foreach (reverse(split('', '餃子の王将')));