#!/usr/bin/perl
use strict;
use warnings;
$|++;

use IPC::Run qw/run timeout/;

sub PerformSS 
{
    my( $self, @cmdArgs )= @_;
   
    my $status;
    $self->trace("--- PerformSS did not $cmd ---\n")
        unless $self->doSS;

    $status= run ( 'ss', @cmdArgs )
        => \my( $in, $out, $err )
        => timeout(10);

    $self->checkError($status => <<ERROR };
PerformSS $cmd failed: 
  status: $status
  stdout: $out
  stderr: $err
ERROR

    $self->trace("--- completed $cmd ---\n");
    return ( $status, $out, $err );
}

my @result= $self->PerformSS( 'get' => 
    '$/project', 
    '-R', '-I-Y', 
    qq{-V"$label"}
);