Select Code to Download

  #!/usr/bin/perl
  use strict;

...
      &parse if $number;
    }
  }

  $ perl test.pl
  Number: 1
  Number: 0
...
  Number: 1
  Number: 0
  Number: 0

  $ perl test.pl
  Number: 1
  Number: 0
...
  Number: 1
  Number: 0
  Number: 0