my $shortcut = Win32::Shortcut->new($file);
$shortcut->{IconLocation} = 'C:\Perl\bin\perl.exe';
$shortcut->{IconNumber}   = 0;
$shortcut->Save($file);