sub get_file {

        # Similar system to sending the file over.  Give it a
        # different name when downloading incase it is parsed whilst
        # only partially loaded.

        my $file = shift;
        my $tmpfile = "DOWNLOADING-".$file;
        my $size_remote;
        my $size_local;

        $tabspaces++;
        logger("Downloading $file as $tmpfile");

        # Get size of the remote file that we wish to download.

        $size_remote = $ftp->size($file) or drop_dead("Could not obtain size of $file - $!");
        logger("Size of $file is $size_remote");

        $ftp->get($file,$tmpfile)
                or drop_dead("Error downloading $tmpfile - $!");

        $size_local = -s $tmpfile;

        if ($size_local != $size_remote) {
                drop_dead("File size differs ( $size_remote <-> $ $size_local) - Error in download");
        } else {
                logger("Successful download ...");
        }

        logger("Renaming local $tmpfile as $file");
        rename($tmpfile,$file)
                or drop_dead("Could not rename local $tmpfile to $file - $!");

        logger("Deleting remote file $file");
        $ftp->delete($file)
                or drop_dead("Could not delete remote $file - $!");

        $tabspaces--;
}