3 changed files with 18 additions and 3 deletions
@ -0,0 +1,10 @@ |
|||||
|
#!/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; |
||||
Loading…
Reference in new issue