assoc .pl=Perl
assoc .cgi=Perl
ftype Perl="D:\Programs\gnu\perl809\bin\perl.exe" "%1" %*