- open my $message, '>', "/tmp/MAPSMessage.$$"
- or error("Unable to open message file (/tmp/MAPSMessage.$$): $!\n"), return -1;
+ my $msgfile = "/tmp/MAPSMessage.$$";
+
+ open my $message, '>', $msgfile
+ or error("Unable to open message file ($msgfile): $!\n"), return -1;