Thank you for all of your help. I forgot to mention that I am rather new to using perl. The only part of your help that i am really having trouble with comprehending is:

# Top level
my $choice = get_choice();
do_ip_manual() if $choice == 1;
do_ip_fromfile() if $choice == 2;

# Lower level
sub do_ip_manual {
    my ($user, $pass) = get_auth();
    ...
}

# Even lower level
...
[download]

I do not understand how to correctly use the subroutines.