# If you're using the Text widget
my $txtUser = $profileOpt->Text()->pack;
$txtUser->insert("end", "cheese");

# If you're using the Entry widget
my $txtUser = $profileOpt->Entry()->pack;
$txtUser->configure(-text=>"cheese");
# Or
my $txtUser = $profileOpt->Entry(-text=>"cheese")->pack;