Net ::FTP and subroutine calls

[DBSMITH]

All, 

I have this ftp code


        sub ftpme {

                my $remotehost="ftp.digitalarchives.com";
                my $user="cb100524";
                my $pass="xxxxxxx";
                my $data=$scratchtps;
                my $ftplog="/usr/local/log/ftp_IrMt_scratchtapes.log";

                my $ftp = Net::FTP->new(
                $remotehost, Debug => 10)
                or die "cannot connect to $remotehost: IronMt";
                $ftp->login($user, $pass) or die "cannot login ", 
$ftp->$ftplog;
                $ftp->ascii();
                $ftp->cwd('archive');
                $ftp->put($data) or die "FTP put to IrMt failed", 
$ftp->$ftplog;
                $ftp->quit;

        }


and I want to append the result data to my log file.  I ran it and the 
files was 0 bytes.  What am I doing wrong?

Also, how and what do I use to call a subroutine block that is in another 
file from my MAIN Perl program?  Will you please provide a code example?

thank you, 
derek