You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
10 lines
309 B
10 lines
309 B
#!/usr/bin/perl -w
|
|
use CGI;
|
|
use Sys::CPU;
|
|
$number_of_cpus = Sys::CPU::cpu_count();
|
|
$q = CGI->new;
|
|
print $q->header,
|
|
$q->start_html('hello world'),
|
|
$q->h1('hello world'),
|
|
$q->pre('CPU Count: '.Sys::CPU::cpu_count()."\nSpeed: ".Sys::CPU::cpu_clock()."\nType: ".Sys::CPU::cpu_type()."\n"),
|
|
$q->end_html;
|
|
|