use CGI;
use utf8::all;

my $c =  new CGI;
$c->import_names('P');

my $fh = $P::script;

undef $/;
my $text = <fh>;
close $fh;