use 5.010;
use Gtk2 '-init';

# (setq file-name-coding-system 'utf-8)
# (setq file-name-coding-system nil)

binmode (STDOUT, ":encoding(utf-8)") or die;
#binmode (STDOUT, ":encoding(iso-8859-1)") or die;
#binmode (STDOUT, ":locale") or die;

my $loader = Gtk2::Gdk::PixbufLoader->new();
my $pixbuf;
if (eval {
  $loader->write ($image);
  $loader->close ();
  $pixbuf = $loader->get_pixbuf ();
  1 }) {
  print $pixbuf;
} else {
  my $err = $@;

  my $str = $err->location;
  say "location: ",(utf8::is_utf8($str)?"yes":"no")," ",$str;

  $str = Glib::filename_display_name($str);
  say "location display: ",(utf8::is_utf8($str)?"yes":"no")," ",$str;

  $str = "$err";
  say "err stringize: ",(utf8::is_utf8($str)?"yes":"no")," ",$str;
}