open(CLIENT, "< //./pipe/My_Pipe") || die;
$Data = <CLIENT>;
print "$Data\n";
close(CLIENT);