Select Code to Download

int b = ({ multiple commands here; final command = return value; });

my $a = shift || ({ print "enter in value for a:"; <STDIN>; });

#!/user/local/bin/perl
use warnings;
...

print "a: $a\n";
print "b: $b\n";