#!/usr/bin/perl

$border=0;
$width=100;

print "\nFilename: ";
$filename = <STDIN>; chop($filename);
print "\nNumber of columns: ";
$columns = <STDIN>; chop($columns);
print "\nNumber of rows, not counting header (top) row: ";
$rows = <STDIN>; chop($rows);
print "\nBorder size (0-10): ";
$border = <STDIN>; chop($border);
print "\nTable width (1-100%): ";
$width = <STDIN>; chop($width);

open(FILE,">>$filename");
print FILE "<table border=\"$border\" width=\"$width\%\">\n";
print FILE "<tr>";

for $x (1..$columns){
  print "\nHeader for Column$x: ";
  $column[$x] = <STDIN>; chop($column[$x]);
  print FILE "<td>$column[$x]</td>\n";
}

print FILE "</tr>";

for $i (2..$rows){
  print FILE "<tr>\n";
    for $j (1..$columns){
      print "\nRow $i, \($column[$j]\): ";
      $hold = <STDIN>; chop($hold);
      print FILE "<td>$hold</td>\n";
    }
  print FILE "</tr>\n";
}

print FILE "</table>\n";
close(FILE);