my $x = do{
    print "here's an embedded statement\n";
    42;
};