my $filename = param('textcontent');
		print "<br><br><br>";
		print "The Location you have selected is: $filename";
		print "<br><br><br>";
		
		my $k; my $i=0;my $file;my @argv;my %res;my $key;my $date, my $token, my $server, my $hour, my $peak;my $flag = 0;my $tablecontent;my @th;
		open(DATA, "../cgi-bin/lic.txt") || die("Could not open file!");
		while(<DATA>) {	
			($key, $date, $token, $server, $hour, $peak)= split;
			if ($key eq $filename){
				switch($filename){
					case "EMEA" {$res{$date}{$hour}->{PEAK}+=$peak;$flag=1}
					case "APAC" {$res{$date}{$hour}->{PEAK}+=$peak;$flag=1}
					else { print "previous case not true" }
				}
			}
		}
		if ($flag){
		pgm_fil();
		}
		sub pgm_fil{
			my $q = new CGI;
			$q->header;
			$q->start_html();
			my $tablecontent=[$q->th(['Date/Hours','00', '01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23'])];
			foreach my $key (sort {$a<=>$b} keys %res){
				foreach my $user (keys %{$res{$key}}){
					foreach my $user1 (keys %{$res{$key}{$user}}){
						push @$tablecontent,$q->td([$key,$res{$key}{$user}{$user1}]);
					}
				}
			}
			print $q->table( { border => 1, -width => '50%', -align=>'left'},
					  $q->Tr( $tablecontent),
				 );
		}