Tk::Error: font "bold14c" already exists at C:/Perl/site/lib/Tk/Submethods.pm line 19.

##</code><code>##

    $TOP->fontCreate(qw/bold14c   -family courier   -size 14 -weight bold/);
    $TOP->fontCreate(qw/bold18h   -family helvetica -size 18 -weight bold/);

##</code><code>##

unless ( grep { $_->actual('-Name') =~ /bold14c/ } $TOP->fontNames ) {
    $TOP->fontCreate(qw/bold14c   -family courier   -size 14 -weight bold/);
    $TOP->fontCreate(qw/bold18h   -family helvetica -size 18 -weight bold/);
}

##</code><code>##

$TOP->fontDelete('bold18h', 'bold14c');