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