"my $mw = Tkx::widget->new(".");#main window

my $frm_name = $mw -> new_frame() -> g_pack(); #New Frame
my $lab = $frm_name -> new_label(-text => "Name:", -font => Arial) -> g_pack();
my $ent = $frm_name -> new_entry() -> g_pack();"