maintainer=mailto:wjm@metronet.com Text= ###################################################################### EndText= Name=CBREAK mode in MS-DOS ==== SAMPLE CODE ==== Path=0/perlinfo/scripts/assorted/dos.getkey.better Type=0 Text=
# File Name: dos.getkey.better
# File Size in BYTES: 12833
# Sender/Author/Poster: jbormel@athena.mit.edu (Joe Bormel)
# Subject: CBREAK mode in MS-DOS ==== SAMPLE CODE ====
# Archived: Apr 29 02:16 1994
#
# Thanks to everyone who responded to my plea for help to get CBREAK
# functionality in PERL for MS-DOS.  I've packaged up the results into
# an executable DOS batch file to serve as sample code for others.
# 
EndText= Text= ###################################################################### EndText= Name=my first perl hack Path=0/perlinfo/scripts/assorted/firsthack Type=0 Text=
# File Name: firsthack
# File Size in BYTES: 1179
# Sender/Author/Poster: galt%asylum.cs.utah.edu@cs.utah.edu (Greg Alt)
# Subject: my first perl hack
# Archived: Apr 29 02:16 1994
#
# I kept hearing about perl, and it sounded interesting, so I finally got 
# around to trying it out.  Here's my first perl program:
# 
EndText= Text= ###################################################################### EndText= Name=Re: Self-modifying code? Path=0/perlinfo/scripts/assorted/self-reproducing-code.example Type=0 Text=
# File Name: self-reproducing-code.example
# File Size in BYTES: 1313
# Sender/Author/Poster: boyd@cs.buffalo.edu (Daniel F Boyd)
# Subject: Re: Self-modifying code?
# Archived: Apr 29 02:16 1994
#
# Here is my self-reproducing Perl script.  Bonus: Since we're both at
# Buffalo the pathname is correct for our machines (and probably nowhere
# else).  
# 
EndText= Text= ###################################################################### EndText= Name=uutraf.pl Path=0/perlinfo/scripts/assorted/uutraf.pl Type=0 Text=
# File Name: uutraf.pl
# File Size in BYTES: 5679
# Subject: How much uucp traffic?
# Archived: Apr 29 02:16 1994
#
# Calculate the amount of uucp traffic on a site
# 
EndText= Text= ###################################################################### EndText= Name=Re: Global behavior of @_ (??) Path=0/perlinfo/scripts/assorted/ATUS Type=0 Text=
# File Name: ATUS
# File Size in BYTES: 3521
# Sender/Author/Poster: bob@max.cpd.tandem.com (Bob Mackay)
# Subject: Re: Global behavior of @_  (??)
# Archived: Aug 19 1993
#
# ATUS - AT UnderScore checker - Bob Mackay - MACKAY_BOB@TANDEM.COM
# This program finds parameterless calls to subroutines that are expecting
# arguments.  Such calls are equivalent to calling the subroutine as
# &proc_name (@_); which is not generally what is intended.
# 
EndText= Text= ###################################################################### EndText= Name=Electronic Balloting Path=0/perlinfo/scripts/assorted/Electronic.ballot.shar Type=0 Text=
# File Name: Electronic.ballot.shar
# File Size in BYTES: 20590
# Sender/Author/Poster: jsh@teal.csn.org (Jeffrey Haemer)
# Subject: Electronic Balloting
# Archived: Jun 11 1993
#
# $Id: ballot,v 3.0 1993/06/04 19:53:34 ballot Exp ballot $
# A few weeks back, we posted a note asking for your advice and aid
# in prototyping software for electronic standards balloting.  We
# got it.  Thanks.  Now we want some more.
# 
EndText= Text= ###################################################################### EndText= Name=LCG Random number generator for Perl Path=0/perlinfo/scripts/assorted/LCG.random.generator Type=0 Text=
# File Name: LCG.random.generator
# File Size in BYTES: 19888
# Sender/Author/Poster: wengland@stephsf.com (Bill England)
# Subject: LCG Random number generator for Perl
# Archived: Aug 8 1993
#
# $Id: lotto6,v 1.3 1991/12/09 22:36:48 wengland Exp $
#   This LCG method has the advantage that it can provide 32 bit numbers
#   on 16 bit machines (I've had to hack in in assembler on some systems
# 
EndText= Text= ###################################################################### EndText= Name=Perl Script for Generating Text Stereograms (was Re: Text SIRDS) Path=0/perlinfo/scripts/assorted/SIRDS.text.pl Type=0 Text=
# File Name: SIRDS.text.pl
# File Size in BYTES: 9348
# Sender/Author/Poster: flan@vader.wustl.edu (Ian Flanigan)
# Subject: Perl Script for Generating Text Stereograms (was Re: Text SIRDS)
# Archived: Aug 2 1993
#
# Text Random Letter Stereogram Generator
# As promised, here is the perl script that makes Random Letter
# Stereograms.
# 
EndText= Text= ###################################################################### EndText= Name=Re: Name completion question Path=0/perlinfo/scripts/assorted/alias.cd.pl Type=0 Text=
# File Name: alias.cd.pl
# File Size in BYTES: 3078
# Sender/Author/Poster: exukenc@exu.ericsson.se (Ken Corey,T/TF,75841)
# Subject: Re: Name completion question
# Archived: Aug 24 1993
#
#  by Ken Corey, kenc@sol.acs.unt.edu @1992, you may give but not sell.
#  provides name completion in a cd command.
# 
EndText= Text= ###################################################################### EndText= Name=Baseball Division Picker Program Path=0/perlinfo/scripts/assorted/baseball.pl Type=0 Text=
# File Name: baseball.pl
# File Size in BYTES: 4043
# Sender/Author/Poster: stergios@leland.Stanford.EDU (Stergios)
# Subject: Baseball Division Picker Program
# Archived: Apr 25 1993
#
# Here's a perl program to pick the division standings for Major League
# Baseball.
# 
EndText= Text= ###################################################################### EndText= Name=ckbal - check balanced tokens in C source (perl script) Path=0/perlinfo/scripts/assorted/ckbal Type=0 Text=
# File Name: ckbal
# File Size in BYTES: 10139
# Sender/Author/Poster: arielf@mirage.nsc.com (Ariel Faigon)
# Subject: ckbal - check balanced tokens in C source (perl script)
# Archived: Jul 15 1993
#
# I wrote this about a year ago in an evening of such frustration, and just thought
# it might be a good idea to post this for the benefit of all.
# 
EndText= Text= ###################################################################### EndText= Name=cleave: break files into arbitrary sized chunks Path=0/perlinfo/scripts/assorted/cleave.pl Type=0 Text=
# File Name: cleave.pl
# File Size in BYTES: 3585
# Sender/Author/Poster: tamills@ingr.com
# Subject: MSDOS Perl - Why does read() only give back 51 bytes?
# Archived: Apr 27 1993
#
# 	Cleave
I wrote this script for breaking up files into arbitrary sized chunks.  The
# primary use for me would be transporting large files on floppies.
# 
EndText= Text= ###################################################################### EndText= Name=conserve Path=0/perlinfo/scripts/assorted/conserve Type=0 Text=
# File Name: conserve
# File Size in BYTES: 1075
# Sender/Author/Poster: dhesi@rahul.net (Rahul Dhesi)
# Subject: perl script that calculates conservation hint
# Archived: Oct 5 1993
#
# Rahul Dhesi 
# This program prints a resource conservation hint based on
# arithmetic conversions.  It should be named 'conserve'.
# 
EndText= Text= ###################################################################### EndText= Name=Re: determining available disk space Path=0/perlinfo/scripts/assorted/dfscan Type=0 Text=
# File Name: dfscan
# File Size in BYTES: 3876
# Sender/Author/Poster: asherman@fmrco.com (Aaron Sherman)
# Subject: Re: determining available disk space
# Archived: Aug 26 1993
#
# Scan output of df and provide it via command-line options
# By Aaron Sherman (I-Kinetics, Inc.), 1993
# 
EndText= Text= ###################################################################### EndText= Name=Re: A 6809 disassembler Path=0/perlinfo/scripts/assorted/disassemble.6809.pl Type=0 Text=
# File Name: disassemble.6809.pl
# File Size in BYTES: 6300
# Sender/Author/Poster: charste@summit (Charles Stevens)
# Subject: Re: A 6809 disassembler
# Archived: Jul 27 1993
#

# How about half a disassembler written in Perl?? (Only about 2 hours work --
# mostly typing in the instruction set.  
# 
EndText= Text= ###################################################################### EndText= Name=Re: Setting DOS variables. HELP! Path=0/perlinfo/scripts/assorted/dos.env.set Type=0 Text=
# File Name: dos.env.set
# File Size in BYTES: 2432
# Sender/Author/Poster: dbc@tc.fluke.COM (Dan Carson)
# Subject: Re: Setting DOS variables.  HELP!
# Archived: Jul 9 1993
#
# >: I am able to read DOS environment variables, but I am having trouble
# >: setting the variables to new values.  
# 
EndText= Text= ###################################################################### EndText= Name=Get a key in DOS (how-to) Path=0/perlinfo/scripts/assorted/dos.getkey Type=0 Text=
# File Name: dos.getkey
# File Size in BYTES: 3504
# Sender/Author/Poster: dbc@tc.fluke.COM (Dan Carson)
# Subject: Re: Testing input character if arrow or function key etc (DOS).
# Archived: Apr 6 1993
#

# In article <1493@alsys1.aecom.yu.edu> manaster@yu1.yu.edu (Chaim Manaster) writes:
# >The question is in two parts:
# >1) How do you get a single character returned from the keyboard
# >without requiring a carriage return after the keypress? 
# 
EndText= Text= ###################################################################### EndText= Name=Re: Questions about using Perl on DOS Path=0/perlinfo/scripts/assorted/dos.invocation.and.INC Type=0 Text=
# File Name: dos.invocation.and.INC
# File Size in BYTES: 1338
# Sender/Author/Poster: buboo@alf.uib.no (Ove Ruben R Olsen)
# Subject: Re: Questions about using Perl on DOS
# Archived: Aug 14 1993
#
# 
EndText= Text= ###################################################################### EndText= Name=Replacement for DSKLAYT2 avail Path=0/perlinfo/scripts/assorted/dsklay2.info Type=0 Text=
# File Name: dsklay2.info
# File Size in BYTES: 2032
# Sender/Author/Poster: longe@statsci.com (Michael Longe')
# Subject: Replacement for DSKLAYT2 avail
# Archived: Jun 8 1993
#
# Fed up with the bugs in Microsoft's Setup utilities, I wrote a replacement
# for DSKLAYT2.EXE in Perl. (The DOS version of the Perl interpreter is 
# available from various sites.)
# 
EndText= Text= ###################################################################### EndText= Name=hm fAl & hm tmAshA!!! Path=9/perlinfo/scripts/assorted/fAl.pl.Z Type=9 Text=
# File Name: fAl.pl.Z - compressed binary file
# File Size in BYTES: 20417 
# Sender/Author/Poster: cheragh@alborz.mti.sgi.com (Mash Cheragh-Ali)
# Subject: hm fAl & hm tmAshA!!!
# Archived: Jun 8 1993
#
#  
# I've been gathering all the Persian sayings that have come to my mind, or
# I have seen here and there.  Following is what I have so far.  
EndText=

Text=
######################################################################
EndText=

Name=Query the geographic server
Path=0/perlinfo/scripts/assorted/geographic.pl
Type=0


Text=
# File Name: geographic.pl
# File Size in BYTES: 2277
# 	print("\tgeo place name\n");

# print("Geographic NameServer Query:  \"$request\"\n");
# 
EndText= Text= ###################################################################### EndText= Name=getargs.pl (for use and comment) Path=0/perlinfo/scripts/assorted/getargs Type=0 Text=
# File Name: getargs
# File Size in BYTES: 8155
# Sender/Author/Poster: lawrence@epps.kodak.com (Scott Lawrence)
# Subject: getargs.pl (for use and comment)
# Archived: Apr 6 1993
#
# Provides the routine getargs
# which takes a picture of the expected arguments of the form:
# 
EndText= Text= ###################################################################### EndText= Name=Implement a Hebrew Calendar Path=0/perlinfo/scripts/assorted/hebrew.calendar.pl Type=0 Text=
# File Name: hebrew.calendar.pl
# File Size in BYTES: 3412
# Sender/Author/Poster: faigin@aero.org (Daniel P. Faigin)
# Subject: Re: Chron & Shabbat (was: FAQ)
# Archived: May 8 1993

# The script below uses the hebcal and rise programs available from nysernet.
# sub checkday {

# 
EndText= Text= ###################################################################### EndText= Name=here: broadcast to folks Path=0/perlinfo/scripts/assorted/here.pl Type=0 Text=
# File Name: here.pl - broadcast to online users
# File Size in BYTES: 5392
# Archived: Apr 6 1993
#
# 
EndText= Text= ###################################################################### EndText= Name=Re: Statistic routines ? (Histogram-generator) Path=0/perlinfo/scripts/assorted/histogram.pl Type=0 Text=
# File Name: histogram.pl
# File Size in BYTES: 7096
# Sender/Author/Poster: Dov Grobgeld 
# Subject: Re: Statistic routines ?
# Archived: Apr 6 1993
#
#  histbin
#  version 0.1
#  Bin data for a histogram.
# 
EndText= Text= ###################################################################### EndText= Name=Re: Statistic routines ? (Another Histogram generator) Path=0/perlinfo/scripts/assorted/histogram.tchrist.pl Type=0 Text=
# File Name: histogram.tchrist.pl
# File Size in BYTES: 2464
# Sender/Author/Poster: Tom Christiansen 
# Subject: Re: Statistic routines ?
# Archived: Apr 6 1993
# Here's something I hacked out yesterday.  The format is 
# titlea b c d e
# where the letters are the number of scores of value 1..5;
# 
EndText= Text= ###################################################################### EndText= Name=id - replacement id(1) Path=0/perlinfo/scripts/assorted/id2 Type=0 Text=
# File Name: id2
# File Size in BYTES: 2454
# Sender/Author/Poster: chetal@pyrps5.pyramid.com (Pradeep Chetal)
# Subject: Re: I get "Insecure PATH" when I run commands from emacs...
# Archived: Apr 6 1993
#
# 
EndText= Text= ###################################################################### EndText= Name=Dbot2 - an irc 'bot' Path=0/perlinfo/scripts/assorted/irc.bot.pl Type=0 Text=
# File Name: irc.bot.pl
# File Size in BYTES: 5162
# Sender/Author/Poster: noord@ucs.orst.edu (its MR. DAVO to you...)
# Subject: Re: A C bot.
# Archived: Jun 21 1993
#
# Okeydokey, here it is. Any questions, just ask :)
# 
EndText= Text= ###################################################################### EndText= Name=v37i068: ixobeeper - Talk to alpha-numeric pager from Unix, Part01/02 Path=9/perlinfo/scripts/assorted/ixobeeper.Z Type=9 Text=
# File Name: ixobeeper
# File Size in BYTES: 37873
# Sender/Author/Poster: tal@Warren.MENTORG.COM (Tom Limoncelli)
# Subject: v37i068:  ixobeeper - Talk to alpha-numeric pager from Unix, Part01/02
# Archived: May 23 1993
#
# tpage.pl -- front-end to tpage system.
#   by Tom Limoncelli, tal@warren.mentorg.com
# 
EndText= Text= ###################################################################### EndText= Name=magic - an implementation of file(1) Path=0/perlinfo/scripts/assorted/magic.pl.info Type=0 Text=
# File Name: magic.pl.info
# File Size in BYTES: 1458
# Sender/Author/Poster: dws@ssec.wisc.edu (DaviD W. Sanderson)
# Subject: Re: Is file(1) available in perl?
# Archived: Sep 3 1993
#
# would you please tell me where I can find a copy?
# 
EndText= Text= ###################################################################### EndText= Name=mg - fancy grep for perl Path=0/perlinfo/scripts/assorted/mg.pl Type=0 Text=
# File Name: mg.pl
# File Size in BYTES: 2920
# Sender/Author/Poster: utashiro@sran230.sra.co.jp (Kazumasa Utashiro)
# Subject: Re: Directory Grep??
# Archived: Jun 11 1993
#
# In article <1993Jun10.143017.25932@rtsg.mot.com>
# 	ellis@rtsg.mot.com (John T Ellis) writes:
# >> Has anyone implemented a directory grep in perl?  My ideal
# >> view of the tool includes -
# 
EndText= Text= ###################################################################### EndText= Name=Morse Code practice program Path=0/perlinfo/scripts/assorted/morse.pl Type=0 Text=
# File Name: morse.pl
# File Size in BYTES: 7615
# Sender/Author/Poster: jsc@monolith.mit.edu (Jin S Choi)
# Subject: Morse Code practice program
# Archived: Aug 15 1993
#
# morse code practice program
# I wrote this a while ago to practice for a ham license (which I haven't
# gotten yet), and thought it might be of interest to someone out
# 
EndText= Text= ###################################################################### EndText= Name=myquota: change user quotas (HP syscall) Path=0/perlinfo/scripts/assorted/myquota.HP.pl Type=0 Text=
# File Name: myquota.HP.pl
# File Size in BYTES: 1974
# Sender/Author/Poster: 
# Subject: 
# Archived: Jun 13 1993
#
# 
EndText= Text= ###################################################################### EndText= Name=Eight Queens Solutions Path=0/perlinfo/scripts/assorted/n-queens.pl Type=0 Text=
# File Name: n-queens.pl
# File Size in BYTES: 3512
# Sender/Author/Poster: levan@ms.uky.edu (Jerry LeVan)
# Subject: Eight Queens Solutions
# Archived: Jun 10 1993
#
# A Perl script to solve the n-queens problem.
# 
EndText= Text= ###################################################################### EndText= Name=Re: tail -f clone in perl? Path=0/perlinfo/scripts/assorted/newtail.pl Type=0 Text=
# File Name: newtail.pl
# File Size in BYTES: 1784
# Sender/Author/Poster: ian@unipalm.co.uk (Ian Phillipps)
# Subject: Re: tail -f clone in perl?
# Archived: Jun 23 1993
#

# cc_paul@rcvie.co.at (Wolf Paul) writes:
# >I need to write a script which monitors several files and 
# >collects lines added to these files into a single output 
# >stream...
# 
EndText= Text= ###################################################################### EndText= Name=Re: operl - an experimental object-oriented package for perl Path=0/perlinfo/scripts/assorted/objperl.shar Type=0 Text=
# File Name: objperl.shar
# File Size in BYTES: 12337
# Sender/Author/Poster: sakoh@sraco2.us.sra.co.jp (Hiroshi &)
# Subject: Re: operl - an experimental object-oriented package for perl
# Archived: Apr 6 1993
#
# 
EndText= Text= ###################################################################### EndText= Name=Perl-Pay v1.1 - payroll implementation (compressed) Path=9/perlinfo/scripts/assorted/payroll.Z Type=9 Text=
# File Name: payroll
# File Size in BYTES: 27742
# Sender/Author/Poster: wengland@stephsf.com (Bill England)
# Subject: Perl - Payroll (Part 1 of 2)
# Archived: May 23 1993
#
# $Id: payroll_calc.pl,v 1.3 1993/01/14 20:42:30 wengland Exp wengland $
#   Perl -- Payroll
#   Ok.  This may not be as polished as  I would like but here is 
#   the perl-payroll as it now stands ...
# 
EndText= Text= ###################################################################### EndText= Name=perload - builds up autoloaded and dataloaded perl scripts (Part01/01) Path=9/perlinfo/scripts/assorted/perload.Z Type=9 Text=
# File Name: perload
# File Size in BYTES: 12664 
# Sender/Author/Poster: ram@acri.acri.fr (Raphael Manfredi)
# Subject: perload - builds up autoloaded and dataloaded perl scripts (Part01/01)
# Archived: Jun 25 1993
#
# Archive-Name: perload.Z - compressed binary
# The following script will convert any existing perl script into a dataloaded
# or autoloaded version, which is a big win on startup time and memory usage
# for large scripts, at a small performance cost.
# 
EndText= Text= ###################################################################### EndText= Name=multiple host command launcher (gsh) in Perl Path=0/perlinfo/scripts/assorted/pgsh Type=0 Text=
# File Name: pgsh
# File Size in BYTES: 6138
# Sender/Author/Poster: merlyn@iwarp.intel.com (Randal Schwartz)
# Subject: multiple host command launcher (gsh) in Perl
# Archived: Apr 6 1993
# 
EndText= Text= ###################################################################### EndText= Name=mkpprof - profiles a perl script Path=9/perlinfo/scripts/assorted/pprof.pl.Z Type=9 Text=
# File Name: pprof.pl.Z
# File Size in BYTES: 15k
# Sender/Author/Poster: arf@maths.nott.ac.uk (Anthony Iano-Fletcher)
# Subject: Re: looking for perl profiler
# Archived: Jun 18 1993
#
# DESCRIPTION
#      mkpprof calculates the profiling of the specified script and
#      places  the  output  into  a  file in the current directory.
#      This data file can be collated by pprof (1).
#      This uses a ammended form of Kresten Krab Thorup's profiling
#      perldb.pl.
# 
EndText= Text= ###################################################################### EndText= Name=About-Quran.grd Path=0/perlinfo/scripts/assorted/quran.server Type=0 Text=
# File Name: quran.server
# File Size in BYTES: 3789
# Sender/Author/Poster: an32925@anon.penet.fi (ali)
# Subject: About-Quran.grd
# Archived: Sep 2 1993
#
# Here is README file for QURAN-SERVER. I will try to put it in tehran,
# but I am not sure if they accept this! In the case they do not put
# this in tehran.stanford.edu, I'll send it part by part to SCI. I hope
# this be useful and you get no problem in using it!
# 
EndText= Text= ###################################################################### EndText= Name=perl script to unpack ftpmail (and other) binaries Path=0/perlinfo/scripts/assorted/randalls.uu.pl Type=0 Text=
# File Name: randalls.uu.pl
# File Size in BYTES: 2644
# Sender/Author/Poster: merlyn@ora.com (Randal L. Schwartz)
# Subject: Re: perl script to unpack ftpmail (and other) binaries
# Archived: Jun 24 1993
#
## Version 1.09 on 92/02/25
## Written by Randal L. Schwartz, Stonehenge Consulting Services, Portland, OR
## uudecodes the arguments (or stdin), ignoring non-uuencoded lines
# 
EndText= Text= ###################################################################### EndText= Text= ###################################################################### EndText= Name=Re: slip script (long) & question Path=0/perlinfo/scripts/assorted/slipup.lwall Type=0 Text=
# File Name: slipup.lwall
# File Size in BYTES: 10711
# Sender/Author/Poster: lwall@netlabs.com (Larry Wall)
# Subject: Re: slip script (long) & question
# Archived: Aug 30 1993
#

# Can't say offhand, but here's my original slipup for comparison purposes.
# It seems to me that the BSD folks had to modify it somehow, but I don't
# recall how.
# 
EndText= Text= ###################################################################### EndText= Name=Another stat program (perl script) Path=0/perlinfo/scripts/assorted/stat.pl Type=0 Text=
# File Name: stat.pl
# File Size in BYTES: 9433
# Sender/Author/Poster: tdw@uk.ac.cam.cl (Tim Wilson)
# Subject: Another stat program (perl script)
# Archived: Apr 6 1993
#
# $Id: stat,v 1.1 1992/10/05 10:53:13 tdw Exp $
# Stat(2) files and print results.
# 
EndText= Text= ###################################################################### EndText= Name=symlink.pl Path=0/perlinfo/scripts/assorted/symlink.pl Type=0 Text=
# File Name: symlink.pl
# File Size in BYTES: 3423
# Archived: Apr 6 1993
#

# As merlyn@romulus.reed.edu (Randal L. Schwartz) pointed out, I can't
# do this properly without looking at the symbolic links. So here is my
# second attempt, dealing with symlinks.
# 
EndText= Text= ###################################################################### EndText= Name=Re: Perl and MODEMS Path=0/perlinfo/scripts/assorted/talk-to-modem.pl Type=0 Text=
# File Name: talk-to-modem.pl
# File Size in BYTES: 2522
# Sender/Author/Poster: eric.arnold@sun.com
# Subject: Re: Perl and MODEMS
# Archived: Apr 6 1993
#
# This worked for me on a Sun(4.1.2) with a Hayes compatible USRobotics modem:
# open(MODEM, "+>/dev/cua0") || die "Can't open /dev/ttyb\n";
# system("stty -echo raw >/dev/cua0");
# 
EndText= Text= ###################################################################### EndText= Name=HP-style calculator in perl Path=0/perlinfo/scripts/assorted/tcalc.pl Type=0 Text=
# File Name: tcalc.pl
# File Size in BYTES: 4501
# Sender/Author/Poster: bet@sbi.com (Bennett Todd @ Salomon Brothers Inc., NY )
# Subject: HP-style calculator in perl
# Archived: Apr 6 1993
#
# I finally got tired of not having an HP-style termcap-based calculator
# around, so I wrote one in Perl. 
# 
EndText= Text= ###################################################################### EndText= Name=Re: tee like program to pipe to another program? Path=0/perlinfo/scripts/assorted/tee2 Type=0 Text=
# File Name: tee2
# File Size in BYTES: 3291
# Sender/Author/Poster: tchrist@convex.COM (Tom Christiansen)
# Subject: Re: tee like program to pipe to another program?
# Archived: Apr 6 1993
#
# Tom Christiansen 
# 
EndText= Text= ###################################################################### EndText= Name=Re: How much "free memory" is too little? Path=0/perlinfo/scripts/assorted/top.total.pl Type=0 Text=
# File Name: top.total.pl
# File Size in BYTES: 3067
# Sender/Author/Poster: lott@bogner.informatik.uni-kl.de (Christopher Lott)
# Subject: Re: How much "free memory" is too little? 
# Archived: Jun 3 1993
#
# a script to total the SIZE fields from top
# 
EndText= Text= ###################################################################### EndText= Name=ttyreset.pl Path=0/perlinfo/scripts/assorted/ttyreset.pl Type=0 Text=
# File Name: ttyreset.pl
# File Size in BYTES: 583
# Sender/Author/Poster: 
# Subject: 
# Archived: Apr 6 1993
#
# 
EndText= Text= ###################################################################### EndText= Name=How to pack/unpack bits? Path=0/perlinfo/scripts/assorted/unpack.bitfields.pl Type=0 Text=
# File Name: unpack.bitfields.pl
# File Size in BYTES: 7430
# Sender/Author/Poster: dnoble@devvax.jpl.nasa.gov (David Noble)
# Subject: Re: How to pack/unpack bits?
# Archived: Jun 19 1993
#
# The following routines will give you the pack/unpack behavior you want,
# as long as each collection of bitfields fits evenly into an 8, 16, or
# 32-bit block. I've never really had any use for templates using 'b'
# 
EndText= Text= ###################################################################### EndText= Name=watch - track changes in things (files, etc) Path=0/perlinfo/scripts/assorted/watch.curseperl Type=0 Text=
# File Name: watch.curseperl
# File Size in BYTES: 3759
# Sender/Author/Poster: ggr@nareen.acci.COM.AU (Greg Rose)
# Subject: Re: Screen 'stuff'...
# Archived: Jun 10 1993
#
# Watch the world go by
# 
EndText= Text= ###################################################################### EndText= Name=Re: DOS: Script to edit WIN.INI? Path=0/perlinfo/scripts/assorted/win.ini.edit.pl Type=0 Text=
# File Name: win.ini.edit.pl
# File Size in BYTES: 5646
# Sender/Author/Poster: evas@cs.few.eur.nl (Eelco van Asperen)
# Subject: Re: DOS: Script to edit WIN.INI?
# Archived: May 24 1993
#
# >I manage a large lab of PC computers, and occasionally need to make global
# >changes in their local configuration files.  The best way for me to do this
# >automatically is through a master centralized script. 
# 
EndText= Text= ###################################################################### EndText= Name=wtmp.trim.pl Path=0/perlinfo/scripts/assorted/wtmp.trim.pl Type=0 Text=
# File Name: wtmp.trim.pl
# File Size in BYTES: 3148
# Sender/Author/Poster: 
# Subject: 
# Archived: Apr 8 1993
#
# $Header: /local/undoc/RCS/wtrim,v 1.12 1993/04/08 17:35:55 dhesi Exp $
# Trim the wtmp file to hold a specified number of records.
## 
EndText= Text=
Comments, suggestions, or criticisms on this archive to <wjm@metronet.com>
#
EndText=