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

##</code><code>##

print IN "list disk\n";