Help for this page

Select Code to Download

Select or download this

while( 1 )
{
...
  chomp( $cmd = <STDIN> );
  &do_stuff( $cmd );
}

Select or download this

my JAPH:
  print"Just another Perl hacker\n";
  #    ^ look, no space! pretty tricky hey?