use IO::Handle qw( );
IN->autoflush(1);
[download]

Wouldn't you need a newline too?

print IN "list disk\n";
[download]