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