# weird1.pl
use strict;
use warnings;
my $config;
my $fred = shift;
print "fred='$fred'\n";
$fred == 42 ? $config = 'k1' : $config = 'k2';
print "config='$config'\n";