exit main(); sub main { $success = [ undef, "true" ]->[rand 2]; print "$success\n" }