require gts; #generate_throws_simple (- in main program) print_throws_simple(generate_throws_simple($a,$b)); #standardowe losowanie (- usage) #### package modules::gts; use strict; use warnings; require Exporter; our @ISA = qw(Exporter); our @EXPORT = qw(generate_throws_simple);