use Win32::Printer;
$foo = new Win32::Printer( orientation => LANDSCAPE );

##</code><code>##

use Win32::Printer::Direct;
Printfile('\\\\hardcoyp\\ApDev','test.txt');