#!/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");
