#!/usr/bin/perl use strict; use warnings; use overload; print +("$_ : ", $overload::ops{$_},$/) for (keys %overload::ops);