# Dyn.pm
package Dyn;
use strict;
use warnings;

# Return a list with a random number of elements
sub get_list {
	my @arr = ();
	push @arr, $_ for (0 .. int(rand(10)));
	return @arr;
}

1;
__END__