The notation *.log is for the shell to expand files matching the wild character. One of the perl ways is <*.log>, but then I'm not sure if put() accepts multiple files argument. So, assuming it can takes multiple files, you would do this,

$ftp->put(<*.log>) or die "... message ...";
[download]