Select Code to Download

#!/usr/local/bin/perl -w

...
        y = SvROK(val) ? SvRV( val ) : val;
        return SvREFCNT( y );
}