Help for this page

Select Code to Download

Select or download this

my $new = 1.41;
my $old = 1.5;
print $new > $old ? $new : $old;

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