1#!perl 2use strict; 3use warnings; 4use Carp::REPL 'noprofile'; 5 6my $numerator = 10; 7my $denominator = 0; 8 9our $n = 100; 10our $d = 0; 11 12my %frac = (n => 1000, d => 0); 13my %frac2 = (n => 10000, d => 0); 14 15Carp::REPL::repl(); 16 17print "<" . $numerator / $denominator . ">\n"; 18print "<" . $n / $d . ">\n"; 19print "<" . $frac{n} / $frac{d} . ">\n"; 20print "<" . $frac2{n} / $frac2{d} . ">\n"; 21print "\n\$ "; 22