#!/usr/bin/perl
use warnings;
use strict;
use Encode;
use Encode::Guess;

my $decoder = guess_encoding($content);
print "UTF-8" if ref($decoder) eq 'Encode::utf8';

__END__