-my @core = qw/abs accept alarm atan2 bind binmode bless break caller chdir
- chmod chomp chop chown chr chroot close closedir connect
- continue cos crypt dbmclose dbmopen default defined delete die
- do dump each endgrent endhostent endnetent endprotoent endpwent
- endservent eof eval exec exists exit exp fcntl fileno flock fork
- format formline getc getgrent getgrgid getgrnam gethostbyaddr
- gethostbyname gethostent getlogin getnetbyaddr getnetbyname
- getnetent getpeername getpgrp getppid getpriority getprotobyname
- getprotobynumber getprotoent getpwent getpwnam getpwuid
- getservbyname getservbyport getservent getsockname getsockopt
- given glob gmtime goto grep hex index int ioctl join keys kill
- last lc lcfirst length link listen local localtime lock log
- lstat map mkdir msgctl msgget msgrcv msgsnd my next no oct open
- opendir ord our pack package pipe pop pos print printf prototype
- push quotemeta rand read readdir readline readlink readpipe recv
- redo ref rename require reset return reverse rewinddir rindex
- rmdir say scalar seek seekdir select semctl semget semop send
- setgrent sethostent setnetent setpgrp setpriority setprotoent
- setpwent setservent setsockopt shift shmctl shmget shmread
- shmwrite shutdown sin sleep socket socketpair sort splice split
- sprintf sqrt srand stat state study sub substr symlink syscall
- sysopen sysread sysseek system syswrite tell telldir tie tied
- time times truncate uc ucfirst umask undef unlink unpack unshift
- untie use utime values vec wait waitpid wantarray warn when
- write/;
-push @core,qw/not __LINE__ __FILE__ DATA/;
-