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

use Tk;

my $happy = "This is my example sentence";

# I want the measurement of the above string in pixels given a font face and font size