We should keep the file in /tmp rather than the current directory. It should also get cleaned up.

If you quote the EOF indicator, the shell won't perform substitutions and so you don't need to escape '$' in the script.

That is, you can write:

cat > test.pl <<'EOPERL'
...
my $s = ...
...

Same comments as above.

Right, will put it in a tmp dir like the other tests. I missed that.

Regarding the quoting. I can do that, but the other scripts in this dir do it like this one... I just cloned that code (this is actually the first line or perl I wrote...).
Do you want your change or have the code consistent with the rest?

I can't quote the EOF delimiter, because then no substitution is done in the here-document.

To be explicit:

Without quoting the EOF delimiter, test.pl contains:

use IO::Socket;
my $s = IO::Socket::INET->new(
    Proto => "udp",
    PeerAddr => "127.0.0.1",
    PeerPort => 33434);
die "Could not create UDP socket 127.0.0.1 port 33434" unless $s;
send $s, "Hello", 0;
close $s;
sleep(2);

which is correct.

However, when quoting the EOF character, test.pl reads:

use IO::Socket;
my $s = IO::Socket::INET->new(
    Proto => "udp",
    PeerAddr => "$local",
    PeerPort => $port);
die "Could not create UDP socket $local port $port" unless $s;
send $s, "Hello", 0;
close $s;
sleep(2);

which does not correct. This script does not work.

So I guess being consistent is a good thing here.

Oops, I missed that. Looks fine to me then.

Don't we want to exit $status?

Sure we do... I just copied the code from tst.ipv4remotetcp.ksh, the only file in this directory which has this bug, Thanks for catching it.

I fixed the bug in tst.ipv4remotetcp.ksh in r336293.