Select Code to Download

#!/usr/bin/perl
use strict;
...
    print "do you want to continue press y or n?\n";
    chomp ($opt2 =<>);
}

my %operations = (  "+"  => sub { $_[0] + $_[1]},
                    "-"  => sub { $_[0] - $_[1]},
                    "*"  => sub { $_[0] * $_[1]},
                    "/"  => sub { $_[0] / $_[1]},
                    "**" => sub {  $_[0] ** $_[1]} );