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;