#!/your/perl/here
use strict;
use warnings;

my $rand = rand;

if    ( $rand < rand ) 
{ 
    print "if1:    $rand\n"; 
}
elsif ( $rand < rand ) 
{ 
    print "elsif2: $rand\n"; 
}
else 
{ 
    print "else3:  $rand\n"; 
}