#!C:\perl\bin

$surname = "Smith";
$age = 30;

print "Mr $surname is $age years old \n";