Help for this page
#!/usr/bin/perl print "Content-type: text/html\r\n\r\n"; ... print O join("\n",@scale),"\n"; close(O);