Select Code to Download

#!/usr/bin/perl --
use strict; use warnings;
...
    } else {
        return UnrecognizedAction( $q );
    }

#!/usr/bin/perl --
use strict; use warnings;
use CGI;
...

$ perl ogg.pl go update name bob id 77
name(bob) id(77)