#! /usr/bin/perl
# Program to illustrate printing literals
print "The price is $100.\n";
print "The price is \$100.\n";
print "The price is \$",100, ".\n";
print "The binary number is converted to: ",0b10001,".\n";
print "The octal number is converted to: ",0777,".\n";
print "The hexadecimal number is converted to: ",0xAbcF,".\n";
print "The unformatted number is ", 14.56, ".\n";
print "***\tIn double quotes\t***\n"; # backslash interpretation
print '%%%\t\tIn single quotes\t\t%%%\n'; # All characters are
# printed as literals
print "\n"
