Zna4i za tova "1" ,koeto idva ot id=1 ,probvah po sldniq na4in kato izpolzvam tova,koeto si mi pokazal:

#!/user/bin/perl
use warnings;
use CGI;
$cgi = new CGI;

$file = $cgi->param('id');
if ($file == '1') {
print "Content-type: video/x-msvideo;\n\n";
$nl=$/;
undef $/;
open(FILE,"/home/user/movies/movieq.avi") || die $!;
binmode(FILE);
$content=<FILE>;
close(FILE);
$/=$nl;
print $content;
} else {
print "Content-type: text/html\n\n";
print "Failyt ne moje da byde nameren";
exit;
}

Sled kato ne iskashe da mi izkarva dori i else bloka,probvah prosto sys :

print "Content-type: text/html\n\n";
print "$file";

no ne mi otpe4ata daje i cifrata 1 .Nekade pravq nqkakva glupava i elementarna gresha,no oshte ne moga da se usetq kakva e.Wsyshnost scriptyt go bqh napravil malko po-slojen ot tova koeto sym pokazal tuk,toest usera se
identva predi da mu otvori stranicata s linkovete kym avi-tata.Tam za vsqko film4e ima link-screenshot i vseki link e s razli4no "id".Sled kato klikne na nqkoi cgi-to proverqva id-to i go prashta kym opredeleniq fail,no sled kato i taka neshto byrkam nqma smisyl da go pisha oshte po po-slojniq na4in za6toto hepten nqma da moga da si namerq greshkata .
Vse pak Yankoff mnogo ti blagodarq 4e se zanimavash s moite prostotii i nevejestvo i ako ne pishesh pove4e shte te razbera