#!/usr/bin/perl -w

use strict;
#use diagnostics;
use warnings;
use Win32::API;

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

$ShellExecute->Call($hWnd, 'open', 'c:/rc.d.pdf', undef, undef, 1);