my $res = do{ print "..."}; # $res => 1, da das print erfolgreich war und "1" zurückliefert
$res = do{ 4 + 5 }; # $res  => 9
# usw...