eval {
  use stict;
  use warnings;
  use This;
  use That;
};

while ( $@ ) {
  eval {
    use stict;
    use warnings;
    use This;
    use That;
  }
}
# rest of my code in main