$num = 5;
$friend = "AA";
$money = 125.75;
$now = localtime(); # localtime() is a Perl function
$month = "Jan";
print "$num\n";
print "$friend\n";
print "I need \$$money.\n"; # Protecting our money
print qq/$friend gave me \$$money.\n/;
print qq/The time is $now\n/;
print "${month}uary.\n"; # Curly braces shield the variable
print "$month" . "uary.\n"; # Concatenate