#!/usr/bin/perl -wprint "Five is more than six? ", 5 > 6, "\n";print "Seven is less than sixteen? ", 7 < 16, "\n";print "One is more than one? ", 1 > 1, "\n";