Listing 1. p1.pl Code

#!/usr/bin/perl -dw
if(0) {
   print "Can't get here!\n";
}

while ($i < 10) {
   $i++;
}

if($i >= 9) {
   print "Hello, world!\n";
}
exit 0;