#!/usr/bin/perl

use strict;
use warnings;

use CGI qw(:all);

my $c = int rand(1000);

print header(),
	'--start--', "\n", 
	qq{ 
<script type="text/javascript">
alert($c);
</script> 
}, 
	"\$c ist $c", "\n", 
	'--ende--';