#!/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;