#!/Perl/bin/perl -w

require Win32::OLE;
require Win32::OLE::Const;

use Tk;
use strict;

use constant{TRUE  => -1,
	     FALSE => 0};
	
	
my $filename;	
	     
my $tk_win = MainWindow->new;

my $name_entry = $tk_win->Entry->pack;

$tk_win->Button(-text=>'Prepare It!',
		-command=>\&getFilename)->pack;

&Tk::MainLoop;

#Returns the entry
sub getFilename
{
	$filename = $name_entry->get;
	exit;
}