#!/usr/bin/perl -w

use strict;

my $name = "Tom";
print 'My name is $name\n';