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"; };