#! /usr/bin/perl -w
  use Tk;
  
 my $mw = MainWindow->new; 
 $mw->Label(-text => 'öäü')->pack; 
 MainLoop;