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

sub slurp{
    my $fn = shift;
    open my $fh, "<:utf8", $fn or die "$fn : $!";
    my $content = eval{ local $/; <$fh> };
    close $fh;
    return $content;
}

my $fn  = shift || die;
my $str = slurp($fn);
my $img = txt2gd($str);
binmode STDOUT;
print $img->png(9);
__END__