#!/usr/bin/perl

# By Craig Kelley -- using perl 5.8.8

use strict;
use warnings;

use IO::Socket;

my $BYTE = 13485;

my $remote = IO::Socket::INET->new(
				   Proto    => "tcp",
				   PeerAddr => "mozy.com",
				   PeerPort => 8787
				   )
   or die "cannot connect to mozy : $!";

my $char;
my $data;

for (my $i=0; $i<$BYTE; $i++) {

   $char = sysread($remote, $data, 1);
}

close $remote;

print "$data\n";