#!/usr/bin/perl
$x = 1;
$y = 2;
$z = $x + $y;
print "Z is $z.\n";