Select Code to Download

sub new {
    my $class = shift;
...
    $self->{level} = defined( $level ) ? $level : 0;
    $self->{links} = defined( $links ) ? $links : [];
}