Select Code to Download

#!/usr/bin/perl
use strict;
...
  while ((my $test, my $result) = each(%test_results)) {
        print $stdout_fh  "$test,  $result\n";
  }

# DOESNT WORK?? the $ARG1 causes problems? 
my @output = $ssh->capture("$full_file $ARG1 $LOG");
...
my( $in, @output, $err, $pid ) = $ssh->open3("$full_file $ARG1 $LOG");
  # DOESNT WORK?? 
my @output = $ssh->capture(stdin_data => "$full_file $ARG1 $LOG ");