use strict;
use IO::Socket::INET;

my $sock = IO::Socket::INET->new('embedded.device.hostname:http')
  or die "Could not get socket: $@";
print $sock "GET $dir HTTP/1.1\n"
        . ($auth ?  "$auth\n"  : "")
        . "Accept: */*\n"
        . "Host: $server\n"
        . "Connection: Keep-Alive\n"
        . ($conf{CAMERAMODEL} =~/mpeg/i) ? "\n":"\r\n";
print while <$sock>;