while( 1 ) { print '> '; chomp( $cmd = ); &do_stuff( $cmd ); } #### my JAPH: print"Just another Perl hacker\n"; # ^ look, no space! pretty tricky hey?