#!/usr/bin/perl
# Fig. 2.19: fig02_19.pl
# Program to illustrate numeric and string context, and undef

$string = "Top 10";
$number = 10.0;
print "Number is 10.0 and string is 'Top 10'\n\n";

$add = $number + $string;             # 10 (not 20)
print "Adding a number and a string:        $add\n";

$concatenate = $number . $string;     #