#!/usr/bin/perl -w

my $true = "foo";
my $false = "0";
my $dc = "bar";

warn do { $dc if $false };
warn do { $dc unless $true };
warn do { $dc while $false };
warn do { $dc until $true };
warn do { if ($false) { $dc; } };
warn do { unless ($true) { $dc; } };
warn do { while ($false) { $dc; } };
warn do { until ($true) { $dc; } };
warn do { '0' };
warn do { 'foo' };
warn do { do { '0' } };
warn do { do { !1 } };
warn do { '0' };
warn do { !1 };
warn do { };
warn do { };