#!/usr/bin/perl
use warnings;
use strict;

sub decode {
    require Encode;
    Encode::decode('UTF-8', shift);
}

print decode('abc');