Select Code to Download

    if ("$file" =~ "$filename")

        open (FH, "$file") || die "cant open file $!";

        $filename = $dir."/".$filename;
        open (FH, "$filename") || die "cant open file <$filename> $!";