#!/usr/bin/perl

open(EXECOPU, '| execopu -text')
or die("Can't run execopu: $!\n");

my @site_numbers = (7, 12);

print EXECOPU "cell\n";

foreach my $site_number (@site_numbers) {
   print EXECOPU <<"EOF";
u
csno = $site_number
ccuoosmin_3g1x = ""
ccuoos_3g1x = ""
u
EOF
}