That looks better

I'm not a big Net::Telnet user, but it looks to me like $c is undefined. That means that Net::Telnet->new call failed. Also:

 Prompt => '/#/',

looks suspicious to me. You might mean instead:

 Prompt => '#',

Also I think you could change:

my $userName2 = sprintf("name2\n");
my $password2 = sprintf("password2\n");
[download]

To:

my $userName2 = "name2\n";
my $password2 = "password2\n;
[download]

Definately look into why $c is undefined...