#!/usr/bin/perl
# $Id: comas_shell.pl,v 1.4 2003/12/20 04:16:10 mig Exp $

use Data::Dumper;
my $count = 0;

print '-> ';
while (my $lin = <STDIN>) {
    my @r = eval $lin;
    print "R: @r\n" if @r;
    print "E: $@\n" if $@;
    print '-> ';
    undef $@;    
    $count++;
}

END {
    print "Leaving Comas' Perl Interpreter.\n",
    "$count statements executed.\nHave fun out there!\n";
}

# $Log: comas_shell.pl,v $
# Revision 1.4  2003/12/20 04:16:10  mig
# - Agrego tags Id y Log que expanda el CVS
#
