use X;
use Data::Dumper;

sub func1 {....}
sub func2 {....}

until (should_stop()) {
.....
....
..
}