Select Code to Download

#! perl -slw
use strict;
...

float4 myVarC = {1,0,0,1};

C:\test>junk2
$VAR1 = {
...
                        'type' => 'float'
                      }
        };