perl -le 'use strict; my $foo = 1; $foo ? \&{print "foo"} : \&{ print "bar"};'
foo