Jeff's Page of pictures

120256.html

ARITHEVL.HTM

AddRemoveTest.html

AustralianLinuxResources.html

CAQM.htm

ConnectedURLs.html

DEC_y2k_home.html

DialUpProcedure.html

Diald.html

Elastic.html

Elephants.html

EmailHoaxes.html

FromWGT2BWH.html

HelloAgainApplet.html

NTmanifesto.html

NewYorkPlanning.html

OPENWRLD.HTM

Overlake76.html

SILVERMAN00B1.html

SILVERMAN00B2.html

SarahsGuestBook.html

Security.html

TBASurvey3.html

TalkRadio.html

UpList.htm

Win95setup.html

XF86Config.html

arithevl2.htm

backup_information.html

cooleyDental.html

creations.html

getfile.html

hub_rr.html

index.htm

index1.html

index2.htm

index2.html

index2a.html

index3a.html

index3b.html

index3c.html

lessonslearned.html

makedj.html

movesphere.html

nancy.htm

noach.html

pictures.html

problems.htm

religion.html

resume.htm

rogues.htm

rtasimm.html

runit.html

silverman00a1.html

silverman00a2.html

swe.html

y2k.html

#!/bin/perl5
#!
print "\$ARGV[0]=$ARGV[0]\n";
if ( $ARGV[0] eq "html" || $ARGV[0] eq "Html" || $ARGV[0] eq "HTML")
{
system("ls *.htm *.HTM *.html *.HTML *.Htm *.Html >htmls.txt");
open (IN, " open (OUT, ">htmls.html") || die ("unable to open htmls.html for writing");

}
else
{
system("ls *.gif *.GIF *.jpg *.JPG *.jpeg *.JPEG *.Gif *.Jpeg *.jpg >pictures.txt");
open (IN, " open (OUT, ">pictures.html") || die ("unable to open pictures.html for writing");
}
print OUT<







Jeff's Page of pictures




EOF
;

open (IN, "<$0") || die ("unable to open pictures.txt for reading");
while ( ) {
chop;
print OUT $_."
\n";
}
print OUT "";
close IN;
close ( OUT );