Select Code to Download

    #!/usr/bin/perl -w
    use strict;
...

    my $ook = $cycle || 42;
    print "\$ook is $ook\n";     # prints: $ook is 0