#!/usr/bin/perl

# bitte immer strict und warnings benutzen.
use strict;
use warnings;

use Tk;
use Tk::LabEntry;
use Cwd;
use temp_mat13;
use Materialimport;

my $mw = MainWindow->new(-title=>"NG v1.1");
$mw->geometry( "1000x600" );

my $BT1 = $mw->Button(-text=>"Template laden mit Dialog", -command=>\&button1)->pack(-side=>left, -padx=>20, -pady=>5);

my $LE2=$mw->...

MainLoop;

sub button1{
  $LE2->configure(-textvariable=>temp_mat13::skript1($mw, '/', 0));
}