Help for this page
my ($class,$d) = shift;
my ($class,$d) = @_;
my $class = shift; my ($args, $as, $needed) = @_;