#!C:\strawberry\perl\bin\perl.exe

use strict;
use warnings;
use JSON;
use LWP::Simple;
use CGI;

my $q = CGI->new;

print 	$q->header,
	$q->start_html,
	$q->p("hi"),
	$q->end_html;