# This tests for definedness while($x = <*.pl>) {} # This tests for truthfulness 1 while($x = <*.pl>)