CBB Library and Information Services

#!/usr/bin/perl -w use strict ; my $pics = "./pics/pics"; my @Pics ; my $footer = "includ/first_footer.html" ; open (FOOTER, $footer) || die "can't open $footer: $!" ; #Seed Rand srand( time() ^ ($$ + ($$ << 13)) ); #fill up ThePics array my $count = 0 ; open (Pics, "$pics") || die "Can't open the pictures file: $!\n"; while (){ chomp $_ ; $Pics[$count] = $_ ; ++$count } close(Pics); #Make temp the size of TheNews my $Temp = @Pics ; #Get random integer number 0 < # => Pics my $num = int(rand($Temp)) ; &print_page() ; ##----html page goes here sub print_page { print "Content-type: text/html","\n\n" ; print < CBB Library and Information Services

EOF1 # # while (


Library Catalogs Colby Bates Bowdoin CBB Search Help Pages World Wide Web	Teaching Tools Faculty Stipend Program Faculty Collaboration Language Technology Library & IT Classes & Workshops	Mellon Project Working Groups Meeting Notes CBB Libraries Strategic Plan Other CBB Consortia Off-Campus Study Language Technology CBB Listserv	College Catalogs Colby Bates Bowdoin CBB Combined College Calendars Libraries Colby Bates Bowdoin Information Services Colby Bates Bowdoin