sub copy_files { my ($from, $to, $options) = @_; ... ein file kopieren $options->{onProgress}->($prozentwert) if $options->{onProgress}; ... loop }