print $sock "$file\0";

##</code><code>##

{
    local $/ = "\0";
    $file1 = <$conn>;
    chomp $file1;
}