#!/usr/bin/perl

use Text::CharWidth qw(mbswidth mblen);

print mblen("Hello World");