in reply to Can't write to socket using pp ?

There is a saying:

"Only Perl can parse Perl."
I assume by pp you mean some kind of Perl Packager as opposed to the Perl byte code. Some things that could introducing dependancies:

IO::Socket::INET->new returns a reference to a IO::Socket object. You should use defined() to check the return value or, better yet, enclose it in an eval.

The use of a symbolic Filehandle involves a lot of perl magic which may not be portable.

You should check if the socket is connecting.

($host eq $fh->connected()) or die "Can't connect to $host\n";
Explicitly turn autoflush on.
$fh->autoflush(1);
Good Luck

s//----->\t/;$~="JAPH";s//\r<$~~/;{s|~$~-|-~$~|||s |-$~~|$~~-|||s,<$~~,<~$~,,s,~$~>,$~~>,, $|=1,select$,,$,,$,,1e-1;print;redo}