#!/usr/bin/perl -w
use strict;

my ($title,$actors,$genre,$languages);
my (%h,%colours,@a);
my $file = "videos.txt";

chdir "$ENV{HOME}/forSale" or die "chir: $!\n";
open DVDs, "<$file" or die "open: $file: $!\n";

print <<EOH;
<h3><a name="videos">VHS videos for sale.</a></h3>

<p>10 CHF each or 4 for 30 CHF. All are PAL unless otherwise stated. Follow the links for reviews from http://www.imdb.com/.</p>

<br>

<table border="1" align="center">
<tr>
  <td><b>Titre/Title</b></td>
  <td><b>Starring...</b></td>
  <td><b>Style/Genre</b></td>
</tr>
EOH

while ( <DVDs> )
{
  chomp;
  next if m%^#%;
  s%Arnie%Arnold Schwarzennegar%;
  $h{$_}++;
}

foreach ( sort keys %h )
{
  @a = split(';',$_);
  print <<EOT;
<tr>
  <td align="left"> $a[0] </td>
  <td align="left"> $a[1] </td>
  <td align="left"> $a[2] </td>
</tr>
EOT

}

print "</table>\n";