This little test prog gives the expected results (two fonts, three sizes) on the Win98 and Win2K boxes here:

use strict;
use warnings;
use Tk;
my $top = MainWindow->new();
my $canvas = $top->Canvas ()->pack;
$canvas->createText(60, 60, 
   -font => '-*-MS Sans Serif-Medium-R-Normal-*-*-240-*-*-*-*-*-*',
   -text => 'Hello world',
);
$canvas->createText(60, 120, 
   -font => '-*-MS Sans Serif-Medium-R-Normal-*-*-120-*-*-*-*-*-*',
   -text => 'Hello2 world2',
);
$canvas->createText(60, 180, 
   -font => '-*-Century-Medium-R-Normal-*-*-180-*-*-*-*-*-*',
   -text => 'Hello3 world3',
);
Tk::MainLoop;
[download]