sub do_profile { my $self = shift; my $cgi = $self->query(); my $f_id = $cgi->path_info() || $cgi->param( 'f_id' ); }