#!/usr/bin/perl

sub foo :lvalue
{
        if( $_[0] )
        {
                $bar
        }
        else
        {
                $baz
        }
}

foo($ARGV[0]) = 32;

print "Bar: $bar, Baz: $baz\n"