No newlines when writing to a log file

[Dave Thacker]

Hi folks,
I've created a log file in my code, and I print various strings to it as I
go through my program.  The problem is that everything is showing up on one
line for each iteration of my main loop, even though I have newlines in the
string.

I'm getting:
The log starts here
Can't make test-sendCan't change to test-send directory.Finished
Transmission at
 s0005rx
Can't make test-sendCan't change to test-send directory.Finished
Transmission at
 s0008rx

What I'm after:
The log starts here
Can't make test-send
Can't change to test-send directory
Finished Transmission at s0005rx
Can't make test-send
Can't change to test-send directory.
Finished Transmission at s0008rx

My code is below.  I'm looking for nifty timestamp idiom too, but I'll
settle for the newlines getting fixed.

TIA
Dave

-------------------begin code--------------------------------------

#!/usr/bin/perl
use strict;
use Net::FTP::File;


open (LOG,">>test-send.log");
print LOG "The log starts here\n";
my $host;

open(HOSTLIST, "hostlist.txt");
while (<HOSTLIST>)   {
    $host = $_;
    chomp($host);
    print "Contacting $host\n";

    my $ftp=Net::FTP->new($host,Debug=>0, Timeout=>360) or print LOG "Can't
conn
ect to $host";
    $ftp->login("mylogin", "mypasswd") or die "Can't login to $host";
    $ftp->binary;


    $ftp->cwd("/tmp") or print LOG "Can't change to /tmp";
    $ftp->mkdir("test-send") or print LOG "Can't make test-send";
    $ftp->cwd("/usr/meh/test-send") or print LOG "Can't change to test-send
d
irectory.";

    ##put the files in /tmp/test-send
    $ftp->put("PRGUPDT.707.2C") or die "unable to send PRGUPDT";
    $ftp->chmod("755", "PRGUPDT.707.2C") or die "unable to chmod";

    $ftp->quit;
    print LOG "Finished Transmission at $host\n";

}

close(LOG);
c