Help for this page

Select Code to Download


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