while !perl { print 'there is no life'; }