What is the purpose of the print wrapper function?
> diff --git a/PVE/QemuServer.pm b/PVE/QemuServer.pm
> index 5829e4c..90bf745 100644
> --- a/PVE/QemuServer.pm
> +++ b/PVE/QemuServer.pm
> @@ -5539,6 +5539,8 @@ sub update_disksize {
>
> my $changes;
>
> + my $print = sub { print "VM $vmid: $_[0]\n"; };