JEEN

#!/usr/bin/env perl
use TokyoCabinet;
use strict;
use warnings;
use Text::CSV_XS;
$| = 1;

if(@ARGV < 1) {
	print "Usage: $0 corrfile\n";
	exit 1;

JEEN

....

ServerName                advent.perl.kr

RewriteEngine On
RewriteRule ^/2010-(.*)   http://%{HTTP_HOST}/2010/2010-$1 [R=301,L]
RewriteRule ^/$           http://%{HTTP_HOST}/2011/ [R=301, L]

...

JEEN

MojoX::JSON::XS

sub startup {
    ....
    $self->plugin('MojoX::JSON::XS');
}