diff --git a/stream_ssl_preread.t b/stream_ssl_preread.t
index e8c4d5a..2520fe0 100644
--- a/stream_ssl_preread.t
+++ b/stream_ssl_preread.t
@@ -210,7 +210,7 @@
 
 sub get_ssl {
 	my ($host, $port) = @_;
-	my $s = stream("127.0.0.1:$port");
+	my $s = stream('127.0.0.1:' . port($port));
 
 	eval {
 		local $SIG{ALRM} = sub { die "timeout\n" };