my $font;

sub new{
[...]
$font = $cw->Font('{arial} 6 {normal}');
[...]
}