$f2->Label(-text => "Welche Felder sollen aus der Datenbank ausgelesen werden?",-justify=>'left',)->grid(-row=>0, -column=>0,-sticky=>'n',-anchor=>'nw',);

#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $mw = tkinit();

my $label = $mw->Label(-text => 'test', 
                 -width => 100, 
                 -height => 30, 
                 -anchor => 'n')->pack();

MainLoop;