my $font = Wx::Font->new(..)

##</code><code>##

#!/usr/bin/perl

use warnings;
use Wx qw(wxDEFAULT
          wxNORMAL
          wxFONTENCODING_DEFAULT);

package TestApp;
use base 'Wx::App';

sub OnInit {
  my $this = shift;
  my $font = Wx::Font->new(     14,
                                wxDEFAULT,
                                wxNORMAL,
                                wxNORMAL,
                                0,
                                "",
                                wxFONTENCODING_DEFAULT);
}

package main;

my $app = TestApp->new();