Select Code to Download

perl -MO=Deparse,-d \
  -le \
...
my $coin = int rand 2;
print $coin ? "heads" : "tails";
-e syntax OK

perl -MPerl::Tidy -le '
    my $code = q{my $coin = int(rand(2)); 
...
print $coin ? q{true}
    : 1     ? q{false}
    :         q{};