Pastebin na 502.cz

use Win32::DriveInfo;
use Win32::SystemInfo;
use Win32::SystemInfo::CpuUsage;
use Sys::Hostname::FQDN qw(
         asciihostinfo
         gethostinfo
         inet_ntoa
         inet_aton
         fqdn
         short
                          );
print "Info o PC/NTB - Autor: NetLiFe\n\n";
  my $host = short();
  my $fqdn = fqdn();
  my ($name)=gethostinfo();
  my ($name)=asciihostinfo();
print "Název počítače/notebooku: $name\n";
my %mHash;
if (Win32::SystemInfo::MemoryStatus(%mHash)) {}
my %mHash = (TotalPhys => 0, AvailPhys => 0);
if (Win32::SystemInfo::MemoryStatus(%mHash)){}
Win32::SystemInfo::MemoryStatus(%mHash,"MB");
my $proc = Win32::SystemInfo::ProcessorInfo();
if ($proc >= 586) {}
my %phash;
Win32::SystemInfo::ProcessorInfo(%phash);
for (my $i = 0; $i < $phash{NumProcessors}; $i++) {
print "Rychlost procesoru: " . $phash{"Processor$i"}{MHZ} . "MHz\n";
my $intvl = 1000;     # in milliseconds
my $usage = Win32::SystemInfo::CpuUsage::getCpuUsage($intvl);
$usage = Win32::SystemInfo::CpuUsage::getCpuUsage($intvl);
print "Zatížení CPU: ".$usage."%\n";
my  $TotalNumberOfFreeBytes = (Win32::DriveInfo::DriveSpace('c:'))[6];
my  @drives = Win32::DriveInfo::DrivesInUse();
my @freelet = Win32::DriveInfo::FreeDriveLetters();
print "Volné místo na disku C: $TotalNumberOfFreeBytes bajtů\n";
print "Využité jednotky: @drives\nVolné jednotky: @freelet\n";
}
sleep(10);
exit(0);