#...
use CGI;

my $cgi = CGI->new();
print $cgi->header(-type => 'text/html');
my %params = $cgi->Vars();
my $variable_aus_js = $params{'var'};
#...