#! /usr/local/bin/perl -w
 
# open a socket to consed
 
use IO::Socket;
 
# Consed makes a file which has nothing but the port number.
# This will enforce running this program in the edit_dir, too!
open(SOCKETFILE, "consedSocketLocalPortNumber") 
        || die "Can't find consedSocketLocalPortNumber!\n";
$portNumber = <SOCKETFILE>;
close(SOCKETFILE) || die "Can't close consedSocketLocalPortNumber!\n";
 
$socket = IO::Socket::INET->new("localhost:$portNumber") or die $@;

print "issuing command Scroll Contig1 100\n"; 
print $socket "Scroll Contig1 100\n";
print "waiting for you to type a command (such as Scroll Contig1 150)...";
while(<> ) {
    print "issuing command $_";
    print $socket "$_";
    print "waiting for you to type a command (such as Scroll Contig1 150)...";
}