- or download this
int b = ({ multiple commands here; final command = return value; });
- or download this
my $a = shift || ({ print "enter in value for a:"; <STDIN>; });
- or download this
#!/user/local/bin/perl
use warnings;
...
print "a: $a\n";
print "b: $b\n";