#!/usr/bin/perl use Time::Local; print "Content-type: text/html\n\n"; print < Demos & Gently Used Gear


 

Elements maintains a select inventory of demo and gently used equipment.
We happily take equipment in trade. Call, Fax or E-mail us for a quote.

END @months = qw( January February March April May June July August September October November December ); @mod = stat "../list.txt"; $mtime = $mod[9]; ($a,$b,$c,$startday,$startmon,$startyear,$g,$h,$i) = localtime( $mtime ); $startyear = $startyear + 1900; $startdate = "$months[${startmon}] ${startday}, $startyear"; print "\n"; print < END open( LIST, "../list.txt" ); while( ) { if( /\#/ ) { next; } unless( /[a-zA-Z]/ ) { next; } print ""; @info = split "::", $_; foreach $tab( @info ) { $tab =~ s/Classe/Class\é\;/i; print ""; } print ""; } print <
Page last updated on $startdate
ItemConditionOrig. PriceSale Price
$tab

Mission Statement Design, Install, Service Preferred Brands From Our Customers How to Find Us Home END