Select Code to Download

use Device;
use System;
my ( $serverAddress, $port, $reportFile ) = @_;
my $System = new System($serverAddress, $port);
my $dut = new Device('DEV',127.0.0.1,5000);

package Device;

...
    $ComObj->TapResponse($Response);
}

package System;

...
    bless $self, $class;
    return $self;
}