#!/usr/bin/perl
+unlink "keywords.h";
open(KW, ">keywords.h") || die "Can't create keywords.h: $!\n";
select KW;
NULL
__LINE__
__FILE__
+__DATA__
__END__
AUTOLOAD
BEGIN
pos
print
printf
+prototype
push
q
qq
substr
symlink
syscall
+sysopen
sysread
system
syswrite
tell
telldir
tie
+tied
time
times
tr