my $new = 1.41;
my $old = 1.5;
print $new > $old ? $new : $old;
##</code><code>##

$VERSION = sprintf("%d.%02d", q$Revision: 1.5 $ =~ /: (\d+)\.(\d+)/);