+# Uncomment one of the following
+my $dbgf;
+open $dbgf, ">>/tmp/BackupPC_ovz.debug" || die "Cannot open debug file";
+#open $dbgf, ">>/dev/null" || die "Cannot open debug file";
+
+sub mydie($)
+{
+ my ($text) = @_;
+
+ print $dbgf ": die $text\n";
+ die $text;
+}
+