sub browseThis{
print chr(07);         
my @msgs = $h->info('selection');
my $msg = $msgs[0];    
     
my $messref = $pop3->top($msg,10);
$text->delete('1.0','end');

####RIGHT HERE#################
#$text->insert('end', $messref);
$text->insert('end', @$messref);
}