#!/usr/bin/perl -w
use strict;
use CGI qw/:standard/;
use Data::Dumper;
use Carp;


print header();


my $param = 'A'; # or otherwise not working 'B'

my  $OUTFILE_file_name = 'out.txt';       

@output = `some_binary.out $param`;
chomp output;

open ( OUTFILE, '>', $OUTFILE_file_name )
    or croak "$0 : failed to open $OUTFILE_file_name : $!\n";

print OUTFILE Dumper \@output;

close ( OUTFILE );