use Win32::API;

my $shellopen = new Win32::API("shell32", "ShellExecute", 
                             ['N', 'P', 'P', 'P', 'P', 'I'],
                              'N');
$shellopen->Call(0, "print", $file, 0, 0, 0);