I haven't used Tk::Text, but I think you may be looking for something along the lines of the following:

my $data = $text->get('1.0','end');  # Presumed to return contents of 
+desired field
if ($data =~ /^.+$/) {               # non-empty field

} else {                             # empty field

}
[download]