for my $file ( glob "$myfile*" ) {
    $ftp->put( $file ) or die "PUT $file failed: $!\n";
}