#!usr/bin/perl

use strict;
use warnings;

use Tk;



my $MW = MainWindow->new();
my $Button = $MW -> Button(-text=>"Open",-command=> \&open);
$Button -> pack();

MainLoop;

sub open{
	exec('"C:/Programme/Internet Explorer/iexplore.exe"');  
	####Oeffnet den IE und schließt das Button-Fenster
}