#!/usr/bin/perl # Filename: p2.pl # # Our second perl program # demonstrating conditional execution # if( 3<4) { print "3 is less than 4\n"; print "But we knew that already\n"; } print "After the first if statement\n"; if (4<3) { print "I'll be surprised if this prints\n"; print "but we'll try anyway\n"; } print "After the second if statement\n"; if (3<4) { print "3 is less than 4\n"; } else { print "4 is less than 3\n"; } print "That's all folks\n";