#!/usr/local/bin/perl print ("Enter a number:\n"); $number = <STDIN>; chop ($number); if ($number) { print ("The number is not zero.\n"); } print ("This is the last line of the program.\n");