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


sub init {
    encode('utf8', 'x' x 100_000_000);

    return ();
}

print "starting\n";
sleep 5;
print "initializing\n";
init();
print "initialized\n";
sleep 5;
print "cleaning\n";
undef &Encode::encode;
sleep 5;