use strict; use warnings; do { print ">>> "; my $cmd = <>; my $status = eval $cmd; $status or Syntax($cmd); } while 1; sub Syntax { print STDERR "Error parsing $_[0]"; }