perl high cpu usage

#!/usr/bin/perl -W
# This script was pulled together using ideas from various places

use strict;
use warnings;
use diagnostics;

use Term::ReadKey;
use VMware::VIRuntime;
use VMware::VICommon;

#debugging - autoflush stdout
$| = 1;

if ($#ARGV != 0) {
        print "Wrong Arguments Passed\n\n";
        my $progname = qx(basename $0);
        chop $progname;
        printf("Usage: %s <<esxi hostname>>\n\n", $progname);
        exit 1;
}

my $username = "root";
my $password = "xxxxxxxxx";
my $service_url = "https://".$ARGV[0]."/sdk";

# Login to Virtual Center service:
Vim::login(service_url => $service_url, user_name => $username, password => $password);
my $host = Vim::find_entity_view(
view_type => 'HostSystem',
properties => [ 'summary' ],
);

my ($cpuMhz, $numCores, $cpuTotal, $cpuUsed, $cpuPercent);
my $summary = $host->get_property("summary");

$cpuMhz = $summary->hardware->cpuMhz;
$numCores = $summary->hardware->numCpuCores;
$cpuTotal = $cpuMhz * $numCores;
$cpuUsed = $summary->quickStats->overallCpuUsage;
$cpuPercent = $cpuUsed / $cpuTotal * 100;

printf("%0.2f\n", $cpuPercent);