Select Code to Download

#!/usr/bin/env perl
use 5.010;
...
my @new_list = @list[ 0 .. $#disk_list ];

map { say } @new_list;

sub build_disk_list {
    my $self = shift;
...
    }
    return \@disk_list;
}