sub put {
    ...
    my $cb = delete $opts{callback};
    ...
    my $copy_perm = delete $opts{copy_perm};
    ...
    my $copy_time = delete $opts{copy_time};
    ...