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

There might be something ugly in your variables.

#!/usr/bin/perl -w

use strict;
[download]