tokuhirom 2007-06-06 13:44:08 >|perl| #!/usr/bin/perl use strict; use warnings; use Data::Dumper; use Getopt::Long; use POE qw(Component::Client::Twitter Component::Server::IRC Component::TSTP); use YAML; GetOptions('-c=s' => \my $conf, '--quiet' => \my $quiet); $conf or die "Usage: twitter2ircd.pl -c=config.yaml\n"; my $config = YAML::LoadFile($conf) or die $!; if ($quiet) { close STD