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+)/);