#!c:/perl/bin/perl -w

use strict;
use Win32::API;

my $filename = "foobar.pdf";

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

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