extract branch name

System

Ho do I get the name of the branch from within a DCR?

Shouldn't something like this work?
<iw_perl><![CDATA[
my $value = $ENV{IW_BRANCH};
iwpt_output("Branch Name is $value");
]]></iw_perl>

Doesn't give me any result. Any ideas?

Saravanan