1 2 3 4 5 6
#!/usr/bin/perl -w print "Content-type: text/javascript\n\n"; sleep(1.0); print "debug('slowAsync');\n";