ÇÏ·ç¿¡ Çϳª¾¿ Ç®¸é¼­ ÀÌÇØÇϸé ÁÁ½À´Ï´Ù.
±×¸®°í ÀÌ°ÍÀº À¯´Ð½º³ª ¸®´ª½º¿¡¼­ Çϼ¼¿ä.
±×·³ 


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