Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!ub!galileo.cc.rochester.edu!rochester!udel!haven.umd.edu!socrates.umd.edu!socrates!rockwell
From: rockwell@socrates.umd.edu (Raul Rockwell)
Newsgroups: comp.lang.perl
Subject: Re: chsh /usr/bin/perl [writing a shell in perl]
Message-ID: <ROCKWELL.91Jun30205535@socrates.umd.edu>
Date: 1 Jul 91 01:55:35 GMT
References: <MAYER.91Jun27092114@porky.sono.uucp> <ROCKWELL.91Jun30193028@socrates.umd.edu>
Sender: rockwell@socrates.umd.edu (Raul Rockwell)
Organization: Traveller
Lines: 13
In-Reply-To: rockwell@socrates.umd.edu's message of Mon, 1 Jul 1991 00: 30:28 GM

Raul Rockwell:

   #!/usr/bin/perl
   print $prompt="   ";
   print (eval || system), print "\n".$prompt while <STDIN>;

That's a bit crude, even for my taste, try:
print (eval || $@ && system), print "\n".$prompt while <STDIN>;

This at least recognizes boundary conditions...

-- 
Raul <rockwell@socrates.umd.edu>