$filename = $query -> param ('uploaded_file');
    while (<$filename>) {print}