print $sock "$file\0";