my $shellopen = new Win32::API(
    "shell32", "ShellExecute", 
    ['N', 'P', 'P', 'P', 'P', 'I'],
    'N'
    );

$shellopen->Call(0, "print", $pdf, 0, 0, 0);