外部JSをperlで
-
-
-
-
-
-
-
-
-
-
-
- ここから-----------------------
-
-
-
-
-
-
-
-
-
-
#!/usr/bin/perl
use strict;
my $mes1 = 'you access from '.$ENV{'HTTP_REFERER'};
print "Content-Type: application/x-javascript\n\n";
print qq|document.write('Hello');|;
print 'document.write("<br>");';
print 'document.write(\''.$mes1.'\');';