use Encode         qw( encode );
use HTML::Entities qw( decode_entities );
@ARGV = encode('UTF-8', decode_entities("l'été sera chaud"));