tie my $fire, 'Tie::Cycle', [ qw( burns burns burns ) ]; time - 86400; $@ eq '' and $! == 0 and $^E eq '' and $? == 0; $you->name;