$self->{path} = $self->{cgi}->url( -absolute => 1, -path_info => 1 );
my $loc = $self->{cgi}->url( -absolute => 1 );
no warnings 'uninitialized';
$self->{path} = $self->{cgi}->url( -absolute => 1, -path_info => 1 );
my $loc = $self->{cgi}->url( -absolute => 1 );
no warnings 'uninitialized';
print $r->{cgi}->header(
-type => $r->{content_type},
-charset => $r->{document_encoding},
print $r->{cgi}->header(
-type => $r->{content_type},
-charset => $r->{document_encoding},
BeerDB->setup("dbi:mysql:beerdb");
BeerDB->config->uri_base("http://your.site/cgi-bin/beer.cgi/");
BeerDB->config->display_tables([qw[beer brewery pub style]]);
BeerDB->setup("dbi:mysql:beerdb");
BeerDB->config->uri_base("http://your.site/cgi-bin/beer.cgi/");
BeerDB->config->display_tables([qw[beer brewery pub style]]);