assoc .pl=Perl
assoc .cgi=Perl
ftype Perl="E:\apps\gnu\Perl58\bin\perl.exe" "%1" %*