それは、ドライバの範疇になるだろうから、
perlじゃ厳しいんじゃまいか？