Statement Perl

  1. Home
  2. Perl
  3. Statement
  4. If scope
#!/usr/bin/perl
use strict;
use warnings;
if ( (my $toss=rand) > 0.5 ) {
    print "Heads ($toss)\n";
} else {
    print "Tails ($toss)\n";
}