#!/usr/bin/perl -w
use strict;
use Tk;
use Tk::Entry;
my @arraydefault;
my $copytf;
$copytf = $page2 ->Entry (-textvariable=> \$copyentry,
			-validate=> 'key', 
			-validatecommand=> sub{$_[1] =~/['a','d', 't', 's', 'o', 'u', 'A','D', 'T', 'S', 'O', 'U']/}, 			
-invalidcommand=> sub{$page2->bell})->pack;
my $loaddefaultb=>$mw->Button (-text=>'Load Defaults', -command => sub {loaddef()})->pack;
MainLoop;
sub loaddef(){
open (DEFAULTIN, "<default.txt");
	while(<DEFAULTIN>){	
		chomp;	
		@arraydefault = split /,/; 
	}#while
$copyentry=$arraydefault[11];}