Help for this page

Select Code to Download


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

...

sub subroutine1 { return rand(3); }
sub subroutine2 { print shift; }
  2. or download this
    #!/usr/bin/perl

...
use strict;
sub subroutine1 { return rand(3); }
sub subroutine2 { print shift; }