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