# Perl
Title=Perl
CaseSensitive=Yes
Delimiter=~`!@#$%^&*()-+=|\{}[]:;"',.<>/?
LineComment=#
BlockComment=
EscapeChar=\
StringChar="'
DirectiveLeading=
KeywordPrefix=
SpecialWordPrefix=
IndentChar={
UnindentChar=}
BracePair=( ) { } [ ]
AutoCompletePair=() [] {} "" ''

# System Predefined Color & Style
TextColor=Black
TextBgColor=White
TextStyle=

DelimiterColor=SaddleBrown
DelimiterBgColor=
DelimiterStyle=

SpaceColor=Aqua
SpaceBgColor=
SpaceStyle=

NumberColor=Blue
NumberBgColor=
NumberStyle=

StringColor=Red
StringBgColor=
StringStyle=

CommentColor=Teal
CommentBgColor=
CommentStyle=

DirectiveColor=Green
DirectiveBgColor=
DirectiveStyle=

SpecialWordColor=Navy
SpecialWordBgColor=
SpecialWordStyle=

LineNumberColor=White
LineNumberBgColor=A0A0A0
LineNumberStyle=

ActiveLineColor=Fuchsia
BookmarkColor=0000FF

# User Defined Keywords
[1.Keywords]
Color=Black
BgColor=
Style=Bold
InRange=0
Keyword=else elsif for foreach if unless until while do and cmp eq gt le lt ne not or next last continue redo reset goto abs accept alarm atan2 bind chdir chmod chomp chop chown chr close closedir connect cos crypt dbmclose dbmopen defined delete dump each eof eval exec exists exp fileno flock fork format formline getc getlogin glob gmtime grep hex index int ioctl join keys kill lc length link listen localtime log lstat map mkdir msgctl msgget new no oct open opendir ord pack pipe pop pos printf push qw qq rand read readdir readlink recv ref rename reverse rewinddir rmdir seek seekdir select send shift sin sleep sort splice split sprintf sqrt srand stat strict substr symlink syscall sysopen sysread system syswrite tell telldir tie tied time times truncate uc umask undef unlink unpack unshift untie utime values vec wait warn write bless ucfirst lcfirst rindex waitpid croak carp confess cluck die exit print return sub my use local package our scalar import require constant

[2.Keywords1]
Color=DarkBlue
BgColor=
Style=Bold
InRange=0
Keyword=STDIN STDOUT STDERR __END__ __DATA__ __PACKAGE__ __WARN__ __DIE__ __FILE__ __LINE__ DESTROY UNIVERSAL BEGIN END INIT CHECK SUPER CORE

[3.Functions]
Color=ForestGreen
BgColor=
Style=Bold
InRange=0
Keyword=param redirect header append param_fetch fetch start_html end_html Accept raw_cookie user_agent path_info path_translated remote_host script_name referer auth_type server_name virtual_host server_port server_software remote_user user_name request_method content_type http mail to data datasend dataend quit Fcntl Net CGI

[4.Parameters]
Color=DarkOrchid
BgColor=
Style=Bold
InRange=0
Keyword=name value path domain expires secure defaults type status charset attachment cookie title author base target meta style BGCOLOR lang uri nph any compile nosticky no_xhtml newstyle_urls oldstyle_urls autoload no_debug debug private_tempfiles standard all cgi form html2 html3 netscape html LOCK_SH LOCK_EX SMTP Cookie

[5.Environment]
Color=CornflowerBlue
BgColor=
Style=Bold
InRange=0
Keyword=INSTANCE_ID SERVER_PORT_SECURE HTTP_ACCEPT_LANGUAGE PROCESSOR_IDENTIFIER HTTP_ACCEPT HTTP_USER_AGENT REMOTE_HOST GATEWAY_INTERFACE HTTP_HOST SCRIPT_NAME SERVER_NAME OS HTTP_COOKIE CONTENT_LENGTH PATH PATHEXT COMPUTERNAME COMMONPROGRAMFILES PROGRAMFILES MXHOME SYSTEMROOT LOCAL_ADDR PROCESSOR_ARCHITECTURE SERVER_PROTOCOL HTTP_FORWARDED SYSTEMDRIVE PATH_TRANSLATED SERVER_SOFTWARE PATH_INFO REMOTE_ADDR QUERY_STRING HTTPS REQUEST_METHOD SERVER_PORT