File Manager

Current Directory: /usr/share/doc/perl-Expect/examples
Viewing File: /usr/share/doc/perl-Expect/examples/calc.pl
use strict; use warnings; while (my $row = <>) { chomp $row; print "Input: '$row' = "; my $res = eval $row; print "'$res' :Output\n"; }