package temp_mat13;

sub skript1{
my $mw1 = MainWindow->new(-title=>"temp_mat13");																			
	$type = [ ['Template Files', '.template'] ];
	if ($_[1]==0){
		$name = $mw1->getOpenFile(-initialdir=>$_[0], -title=>"*.template laden", -defaultextension=>".template",-filetypes=>$type);					
	}elsif($_[1]==1){
		$name = $_[0];
	}	

.
. diverse Befehle, aber keiner davon greift auf Tk zu
.	   				
$mw1->destroy;
}