Help for this page

Select Code to Download

Select or download this

use strict;

...
my $line = eval $input;

print "$line\n";