#!/usr/bin/perl

use strict;
use warnings;
use Win32::API;

my $ShellExecute = new Win32::API("shell32", "ShellExecute", [qw(N P P P P N)], 'N');
my $hWnd = 0;
my $filename = 'c:/public/test.pdf';

$ShellExecute->Call($hWnd, 'open', $filename, '', '', 1);