#!/usr/bin/perl

my @sitenumbers = (7,12);

print "execopu -text\n";
print "cell\n";

foreach my $site_number (@sitenumbers){

print <<EOF;
u
csno = $site_number
ccuoosmin_3g1x = ""
ccuoos_3g1x = ""
u
EOF
}

##</code><code>##

>perl script.pl
>execopu -text                   #This comes from my script

Enter form name:  cell           #The computer asks for the form name and the script populates it with "cell" and then <ENTER>

Enter Operation: u               #The computer asks for "Operation" and the script populates it with "u" and and then <Enter>
Enter Value: csno = $site_number