#!/usr/bin/perl -w
use strict;
use CGI qw/:standard/;
use Cwd;

print header();

my $dir = getcwd;
my $param1 = qq(hello, cruel world. A test;  for \\\$neversaint.);
my @args = (
        "$dir/never1.pl",
        $param1,
        "$dir/test/never.out"
    );

system(@args) == 0 or die "Code does not work:$!";
exit;

##</code><code>##

#!/usr/bin/perl -w
use strict;
my  $text = $ARGV[0];
my  $outfile = $ARGV[1];

open OUT, ">", $outfile
    or die "$0 : failed to open output file $outfile:$!\n";
print OUT "THIS IS YOUR INPUT TEXT: $text\n";
close OUT;
exit 0;

##</code><code>##

cat test/never.out
THIS IS YOUR INPUT TEXT: hello, cruel world. A test;  for \$neversaint.