use Win32::GUI;
$main=Win32::GUI::Window->new(-title=>"application",-name=>"Main",-width => 400, -height => 200);
$main->AddButton(-name=>"BOK",-text=>"GO!",-pos=>[148,125], -onClick=> \&SUBMIT,);

my $urlfield = $main->AddTextfield(
  -name   => "urlfield",
  -text   => "",
  -left   => 10,
  -top    => 10,
  -width  => 200,
  -height => 25,
  -prompt => ["URL:", 80],
);

 $main->Show();
 Win32::GUI::Dialog();
 
 sub Window_Terminate {
    return -1;   # Stop message loop and finish program
}

sub SUBMIT {
my ($submitted_url) = @_;
print "$submitted_url \n";
}