Select Code to Download

use Win32::Printer::Direct;
...
$v_error = Printfile("\\\\hardcopy\\pur", $printfile);