#!/usr/bin/perl -w

use Eesh qw( e_open e_send e_recv ) ;

## This is the code given in the SYNOPSIS section of Eesh.pm's POD
  
e_open() ;
print e_recv('window_list') ;
e_send('restart');