Close, but I think this is what you want:

#!/usr/bin/perl -w
use strict;
use Net::Telnet;

open (INPUT, 'disks') or die $!;
my @disks = <INPUT>;
close (INPUT);
 
my $conn = new Net::Telnet(Timeout => 2810,
                         Prompt  => '/%/',  
                         Host    => 'hostname' ); 

$conn->login( "username", "password" );

foreach my $disk ( @disks ) {
        chomp($disk);
        $conn->cmd( "run command here  $disk" );
}
[download]