foreach $one ( @us ) { my $journey; while( defined( $one ) ) { open( LIFE, "< $one" ); @choice = stat(LIFE); $truth = $choice[7]; # will vary from person to person seek( FP, $truth, 1 ) || undef( $one ) and next; $journey = "has just begun"; undef( $one ) and @us = split(//,<LIFE>); } print "$one is gone\n" unless $journey =~ /begun/; } [download]
www.com | www.net | www.org
No recent polls found