activestates perl in cygwin

perl

#!/bin/bash

cyg_args () {
    for i in $@
    do
        if [ -e "$i" ]; then
            echo $(cygpath -w "$i")
        elif [[ $i == "-"* ]]; then
            echo $i
        else
            echo $i
        fi

    done
}

params=$(cyg_args $@)

PERL5LIB=$(cygpath -w $(PWD)/extlib/lib/perl5) c:/Perl64/bin/perl.exe $params