Thank you Phill for writing it down.

For those of you, who love named parameters, you could write:

$LINK->{'Path'}            =   'C:\PERL\BIN\WPERL.EXE';  # ActiveState
$LINK->{'Arguments'}       = $path_of_perl_script;
$LINK->{'WorkingDirectory'}= "$ENV{HOME}"; # if exists
$LINK->{'Description'}     = "Perl Shortcut";
$LINK->{'ShowCmd'}         = SW_SHOWNORMAL;
$LINK->{'IconLocation'}    = 'Camel.ico';   # insert your path
...
if (-e $shortfile) { ... } # created ?
[download]

etc.

And it came to pass that in time the Great God Om spake unto Brutha, the Chosen One: "Psst!"
(Terry Pratchett, Small Gods)