1.     #!/usr/bin/perl
2.     use strict;
3.     
4.     my $interpreter = "aspl -groupingclass TIE_OSCILLATORS_AREA_VARY_GROUP 
      -wsname TRANSIENT -singlepass"; 
5.     
6.     my $frequency1 = 4.9;
7.     my $frequency2 = 5;
8.     my $s = "\n";
9.     $s .= "ks fx sumarea aelm\n";
10.    for (my $i=0; $i<=0.5; $i += 0.02) {
11.        $s .= "displayoff\n";
12.        my $freq1 = $frequency1 + $i;
13.        my $freq2 = $frequency2;
14.        $s .= "printblock INTERSECTION OF BOTH WAVES WHEN THEIR SUMMED AREAS ARE 
      THE SAME WITH freq1=$freq1 freq2=$freq2\n"; 
15.        $s .= "W12 = ggtieoscillatorsareavaryS(points,300, 
      frequency1,$freq1,frequency2,$freq2,roundfrac,1,aggregate,1)\n"; 
16.        $s .= "displayon\n";
17.        $s .= "gU,`ks=  W12\n";
18.    }
19.    open(ASPL, "| $interpreter -STDIN") or die "ERROR OPENING A PIPE TO aspl: $! 
      \n"; 
20.    print ASPL $s;
21.    close ASPL;