programming-examples/perl/Subroutine/my variable.pl

#!/usr/bin/perl -w

use strict;

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