perl -MO=Deparse,-d \
  -le \
  'my $coin = int(rand(2)); 
   print $coin ? q{heads} : 1 ? q{tails} : q{};'
BEGIN { $/ = "\n"; $\ = "\n"; }
my $coin = int rand 2;
print $coin ? "heads" : "tails";
-e syntax OK