Select Code to Download

#! /usr/local/bin/perl -w
use strict;
...

(1) ? ($a = 3) : ($b = 4);
print "2) a = $a, b = $b\n";

1) a = 4, b = 2
2) a = 3, b = 2