#!/usr/bin/perl
use CGI qw(param standard);
use strict;

my $query = new CGI;
my $location = $query->param("place");
print $query->header; 

# im jus doing 2 for quickness
if (!$location){
&home
}
elsif ($location eq ("news")){
&news
}
 
sub home{
print "this is home";
}
sub news{
print "this is news";
}