#!/usr/bin/perl -wuselib'../../';usestrict;useTime::HiResqw( usleep ualarm gettimeofday tv_interval );usePVE::INotify;usePVE::AccessControl;my$hostname=PVE::INotify::read_file("hostname");# normally you use username/password,# but we can simply create a ticket if we are rootmy$ticket=PVE::AccessControl::assemble_ticket('root@pam');my$cmd="ab -c 2 -n 1000 -C 'PVEAuthCookie=$ticket' https://$hostname:8006/api2/json";print"$cmd\n";system($cmd)==0||die"command failed - $!\n";