#!/usr/bin/env perl
exit ! main();
sub main { $success = [ undef, "true" ]->[rand 2] }