c:\@Work\Perl\monks>perl -le
"my $hostnum = 'not an array reference';
 my $scalar = qq{webmaster@$hostnum};
 print qq{>$scalar<};
"
>webmaster<