Help for this page

Select Code to Download

Select or download this

use strict;
my $few = shift || 3;
...
    print scalar <DATA> for 1..$few;
  }
}