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