path: root/challenge-031/jo-37/perl/ch-1.pl

#!/usr/bin/perl

use v5.16;
use warnings;

my $div = eval {$ARGV[0] / $ARGV[1]};
say $@ ? $@ : $div;
say "done.";