#!/usr/local/bin/perl -T
use strict;
use warnings;
use lib '.';
use Unicolor;

my $fn  = shift || die;
my $img = GD::Image->newFromPng($fn, 1);
binmode STDOUT, ':utf8';
print gd2txt($img);
__END__