sub perform_drop {
    my ($drop_site, $x_pos, $drop_obj) = @_;
                                                                                
    $drag_obj or die "Whoops -- \$drag_obj undefined (shouldn't happen!)\n";
    printf "Drop label:  %s\n", $drag_obj->cget(-text);
    $drag_obj = 0;
}