[求助]本地ftp到服务器的问题

[求助]本地ftp到服务器的问题
$file 是本地文件的路径
open(FILE,">$basepath/tmp$id.txt");
while (my $bytesread = read($file, my $buffer, 1024)) {
print FILE "$buffer";
}
close(FILE);
把这个文件里的数据写到服务器上怎么总是没有数据呢？文件可以建立。但是文件里面就是没有数据。页面是用method=post

$file 句柄呢? $file = u.
$file 句柄呢? $file = undef;

写入数据：
my $data = '1234567890';
my $file = 'id.txt';
open FH, ">>$file"
or die;
print FH $data;
close FH;

my $data = '1234567890';.
my $data = '1234567890';
my $file = 'id.txt';
open FH, ">>$file"
or die;
while (my $len = read $data, my($buffer), 1024)
{
print FH $buffer;
$bytes += $len;
};
close FH;
return $bytes;