#!/usr/bin/perl
use CGI;

# これはダミー

my $query = CGI->new;
my $fnc = $query->param('callback');

print "Content-type: text/javascript\n\n";
print $fnc . '();';
exit;