PrintTag
###################################################################################
## This Part Open the Text File DB and Read the Information
# default file name ::
$textFile = "DB/New.txt";
$cat = "New";
open (File, $textFile) or die ("Can not open File : $!");
$i = 0;
while ( my $line = )
{
@line = $line;
@record = split(/\|/,$line);
$name = ($record[0]);
$price = ($record[1]);
$designer = ($record[2]);
$fileName = ($record[3]);
$type = ($record[4]);
$size = ($record[5]);
$colors = ($record[6]);
$shortDis = ($record[7]);
$longDis = ($record[8]);
$shipping = ($record[9]);
$i = $i + 1;
###################################################################################
## Looping Table built from DB File.
print <<"PrintTag";
PrintTag
###################################################################################
} ## Closes the Looping Table
close (tangoFile) or die ("Can not close File : $!");
###################################################################################
print <<"PrintTag";
Ending ending
PrintTag
###################################################################################
# End of Program
###################################################################################
