1 2 3 4 5 6 7 8
#!/usr/bin/perl use v5.16; use warnings; my $div = eval {$ARGV[0] / $ARGV[1]}; say $@ ? $@ : $div; say "done.";