% perl6 -e 'my $l = IO::Socket::INET.new(:listen, :localhost<localhost>, :localport(0)); qx{netstat -lnp 2>/dev/null| grep moar}.say; $l.localport.say'
tcp6       0      0 ::1:39205               :::*                    LISTEN      22396/moar

39205