Net::SecurityCenter - Perl interface to Tenable.sc (SecurityCenter) REST API

use Net::SecurityCenter;
my $sc = Net::SecurityCenter('sc.example.org') or die "Error: $@";

$sc->login(username => 'secman', password => 's3cr3t');

if ($sc->error) {
  print "Failed login: " . $sc->error;
  exit 0;
}

my $running_scans = $sc->scan_result->list_running;

if ($sc->scan_result->status( id => 1337 ) eq 'completed') {
    $sc->scan_result->download( id       => 1337,
                                filename => '/tmp/1337.nessus' );

}

$sc->logout();