#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $input='Enter the site address..';

my $mw = new MainWindow;

my $topframe = $mw->Frame()->pack(-expand=>1, -fill=>'both');
my $botframe = $mw->Frame()->pack(-fill=>'x');

my $label = $topframe->Label( -text => "Site Address" )
          ->pack( -pady => 5, -side => 'left' );

my $text = $topframe->Entry( -width => 100, 
           -textvariable => \$input, 
          -state => "normal" )
            ->pack( -padx => 15, -side => 'right' );

my $button = $botframe->Button( -text => "Quit", -command => sub { exit } )
 ->pack( -side => 'right', -padx=> 10);

MainLoop;