Variable "$target_name" will not stay shared at /home/ward/bin/mvwrap

line 83.
melding eruit slopen

mvwrap/mvwrap

@@ -1,7 +1,5 @@
 #!/usr/bin/perl -w
 
-# $Id$
-
 #
 # Copyright (c) 2001 - 2013 Ward Wouts <ward@wouts.nl>
 #
@@ -43,6 +41,7 @@ use vars qw(
 	$opt_h
 	$paranoia
 	$temp_file
+	$target_name
 );
 
 ########################################################
@@ -77,7 +76,6 @@ sub edit($) {
 # make tempfiles and install handler to remove them
 sub open_temp {
 	my $target;
-	my $target_name;
 	($target, $target_name) = tempfile( TEMPLATE => 'MVWXXXXXXX', SUFFIX => '.mvwrap');
 	# Volgende regel werkt niet...
 	END { if ($opt_e) { unlink($target_name) or die("Couldn't unlink $target_name: $!");} }