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

use Encode;

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

# output

Prototype mismatch: sub main::decode ($$;$) vs none at test_decode01.pl line 26.
Subroutine decode redefined at test_decode01.pl line 23.
abc