# Save updated information to database sub doUserUpdate { if ($state->{srcUname}) { my $sth = $dbh->prepare( "REPLACE INTO user (username, firstname, lastname, password) VALUES (?, ?, ?, ?);"); $sth->execute( $user->{username}, $user->{firstname}, $user->{lastname}, $user->{password} ); $user = (); $state->{srcUname} = (); $nb->raise('page1'); } return; }