Select Code to Download

#! perl
use strict;
...
print IncreaseMagnetude->( 'Ten' ) . "\n";
print "Using: " . $more_magnetude->display_name . " -> ";
print $more_magnetude->( 'Ten' ) . "\n";

Using: IncreaseMagnetude -> 100
Using: MoreMagnitude -> 110

Using: IncreaseMagnetude -> 100
Using: MoreMagnitude -> Ten