Select Code to Download

open (OUT, ">$filename"."$title"."$count") or die "can't open";

while (<FILE>)
{
...
    close OUT;

}