#!/usr/bin/perl -w use strict; my ($title,$actors,$genre,$languages); my (%h,%colours,@a); my $html = "ItemsForSale.html"; chdir "$ENV{HOME}/forSale" or die "chdir: $!\n"; open HTML, ">$html" or die "open: $html: $!\n"; print HTML < Items for sale

Items for sale:Books, dvds, and other items.

This list is updated every few days, check back from time to time for new stuff.

Contact Tony.Wildish\@cern.ch (ext 77103) if you are interested in any of these items. Prices as listed, or make me an offer. EOH my $i; foreach $i ( qw /books dvds other/ ) { open A, "./forsale-$i.pl |" or die "$i: $!\n"; while ( ) { print HTML; } close A or die "close $i: $!\n"; } print HTML "\n";