#!/usr/bin/perl -w
BEGIN{
     if ($] < 5.008){
     require utf8;
     utf8->import();
     }
}
if ($] >= 5.008){
binmode STDOUT, 'utf8';}