my $var = "cheese";
...
my $txtUser = $profileOpt->Entry(-textvariable=>\$var)->pack;