diff --git a/apply.pl b/apply.pl
index 703c5f6..df86c3a 100644
--- a/apply.pl
+++ b/apply.pl
@@ -1670,8 +1670,9 @@ sub test_print_queue( $$ )
 		$tmpdir = '/tmp' if ! -d $tmpdir || ! -w $tmpdir;
 
 		my $tmp = $tmpdir . '/smart-test-print-' . $$ . '-' . int( rand( 1000000 ) ) . '.txt';
+		my $fh;
 
-		if( ! open( my $fh, '>', $tmp ) )
+		if( ! open( $fh, '>', $tmp ) )
 		{
 			my $msg = 'Could not create test print file ' . $tmp . ': ' . $!;
 			apply_log_line( 'ERROR', 'print queue test failed queue=' . $queue . ' error=' . $msg );