#!/usr/bin/perl -w

use strict;

my $str = "Hello, world!";
my $num = 12345.678;

print "\$str is \"$str\" and \$num is $num\n";