cant put /var/www/accucaps/data/test.cgi, data/test.cgi: Bad file descriptor at ./mirror.pl line 121.<br>

##</code><code>##

sub checknew ($) {
    my $localfile = join ( "", $home, @_ );
    foreach my $myfiles(@_)
    {
        $myfiles=~s/^\///;
    }
    if ( -e $localfile && -f $localfile ) {
     
        # local file is new, rmt file doesn't exist..transfer
        $ftp->put( $localfile, @_ ) or die "cant put $localfile, @_: $!";
        print "ADDED_FILE: @_\n";
        $new++;  
        $unchanged--;
        return 0;
    }