sub Update
{
    my $appeasy = shift; # your CGI::AppEasy object
    ....
    return qq(<h1>update successful</h1>) # or whatever
}