diff --git a/scripts/runner.pl b/scripts/runner.pl
index ce93eca..eefe3fd 100644
--- a/scripts/runner.pl
+++ b/scripts/runner.pl
@@ -222,6 +222,7 @@ sub inject {
     notify("Injecting $experiment complete.");
 }
 
+# TODO: Add a function that accepts query + output file args
 sub results {
     my ($experiment) = @_;
 
@@ -241,10 +242,11 @@ ORDER BY variant, benchmark, resulttype;";
     };
     die "Query failed: $?" if $? != 0;
 
-    open( my $fhandle, '>', "$remote_builds_dir/$experiment/results.txt" )
+    open( my $results_overview_handle,
+        '>', "$remote_builds_dir/$experiment/results.txt" )
       or die "failed to open file: $!";
-    print( $fhandle, $results_overview );
-    close($fhandle) or die "failed to close file: $!";
+    print( $results_overview_handle, $results_overview );
+    close($results_overview_handle) or die "failed to close file: $!";
 
     my $fail_markers_query = "SELECT
 CONCAT('0x', HEX(p.injection_instr_absolute)) AS fault_address,
@@ -264,10 +266,11 @@ ORDER BY SUM(t.time2 - t.time1 + 1) DESC;";
     die "Query failed: $?" if $? != 0;
     $fail_markers =~ s/\t/,/g;
 
-    open( my $fhandle, '>', "$remote_builds_dir/$experiment/markers.csv" )
+    open( my $fail_markers_handle,
+        '>', "$remote_builds_dir/$experiment/markers.csv" )
       or die "failed to open file: $!";
-    print( $fhandle, $fail_markers );
-    close($fhandle) or die "failed to close file: $!";
+    print( $fail_markers_handle, $fail_markers );
+    close($fail_markers_handle) or die "failed to close file: $!";
 }
 
 # Run experiments