The script:

$cmd = "/usr/local/bin/mycmd";
print "The cmd to be run is: $cmd \n";
open(CMD, "$cmd |" ) or die "Can't run '$cmd'\n$!\n";
while (<CMD>)
	{
	chomp;
	print "My raw output is: $_ \n";
	$dataout = $_;
	print "My DATAOUT is: $dataout \n";
        }