Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
( my $test ) 
  ? print 'c'
  : sub { print 'a'; print 'b' }
  2. or download this
    #!/usr/bin/perl

...
    print 'a';
    print 'b';
}