sub save { my $self = shift; my $acs = Net::Cisco::ACS->new("hostname"=>"localhost"); my $user = Net::Cisco::ACS::User->new("username"=>"foobar"); $acs->create($user); # Blocking code # Calling create will take a few seconds } sub list { my $self = shift; my $acs = Net::Cisco::ACS->new("hostname" => "localhost"); my %users = $acs->users; # Blocking code # Calling users will take a few seconds }