#!/usr/bin/perl
use CGI qw(:all);
print header();
my $req = param('q');
open (FILE, "$req") or die "Cannot open file $req";

my @list = <FILE>;
close FILE;  

foreach $line(@list){
	$line =~ s/^\s*//;	
	$line =~ s/\n|\r//;	
	if ($line eq ''){ print "11"; }
	$line =~ s/,/<br>/g;
	($nazv, $zhanr, $at, $k, $out) = split (";", $line);	
	print qq(<tr class="text" valign="top" bgcolor="white"><td>$nazv</td><td>$zhanr</td><td>$at</td><td>$k</td><td>$out</td></tr>);
}