my $lbl = $w{2}->add(
     undef, 'Label',
     -y    => -5,
     -text => "The email you entered is $EMAIL\n"
);
$lbl->draw;