Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    print &$get_next . "\n" if rand(5) < 2.0;
    print &$get_another . "\n" if rand(5) < 3.5;
}

$ ./continuation.pl
Next: 600
...
Another: 1000
Another: 1100
Next: 1000