1 2 3 4 5 6 7 8 9 10 11
package Calc_Use; use strict; use warnings; sub new { bless {}, shift; } sub add { } sub mul { } sub div { } 1;