print SOCK "SENDFILE $filesize $filename\r\n";
$resp = <SOCK>;
if ($resp !~ /^OK/) { die "Bad response\n" }
while(read(INFILE,$_,8192))
{
  print SOCK;
}
$resp = <SOCK>;
if ($resp !~ /^OK/) { die "Bad response\n" }