use threads;
use threads::shared;

my $pingStatus : shared = undef;
async{ 
    $pingStatus = system 'ping', ...;
};

.... do other stuff

if( $pingStatus == ? ) {
   ## ....
}