String Perl

#!/usr/bin/perl -w
$name = "AAA";
print "My name is ", $name, "\n";