($host eq "stream.foo.com"
&& $stream_port eq "554")
|| die "Typo?";

##</code><code>##

#!/usr/bin/perl -w

use strict;