use TK;
use strict;
my $url = '[URL=http://wiki.perl-community.de/bin/view/Wissensbasis/StandardBrowserStarten]http://wiki.perl-community.de/bin....Starten[/URL]';
my $mw = MainWindow->new;
$mw->Label(-text => 'Test start')->pack;
$mw->Button(
    -text    => 'Browser',
    -command => sub { system('start "Test" /B "' . $url . '"'); },
)->pack;
$mw->Button(
    -text    => 'Quit',
    -command => sub { exit },
)->pack;
Tk::MainLoop();