質問します。
Win32のActivePerl5でドライブのレディ状態を調べたいのです。

if ( &drive_ready_check( 'A' ) ){
print "Aドライブはレディー状態です\n";
}else{
print "Aドライブはノットレディー状態です\n";
}

という感じで使いたいのです。
よろしくお願いします。