my $new_sock = $sock->accept();
	open my $fh, '>>', $file or die $!;
        while(<$new_sock>) {
         print <$fh>;
#######close $fh;
}