my $true = 1;
ioctl($sock,0x8004667e,\$true);