Ich glaube nicht das sich das mit Perl machen läßt, zumindest bei Windows Rechnern. (Zumindest ein Programm müßte als Treiber geladen werden.)