#!perl
use strict;
use warnings;

my $num = new SomeThing 57;
    $b=5+$num;
    print "b is $b \n";
    my $minus = $num - 10;
    print "minus is $minus \n";


package SomeThing;

 sub new { my $p = shift; bless [@_], $p }
use overload
    '+' => \&myadd,
    '-' => \&mysub;

sub myadd {
    my $self = shift;
    my $var = shift;
    return ($var + $self->[0]);
}

sub mysub {
    my $self = shift;
    my $var = shift;
    return ( $self->[0] - $var);
}
1;
[download]