my $Shift = 0x0100;
my $Ctrl = 0x0200; 
my $Alt = 0x0400; 

my $LINK=new Win32::Shortcut();
$LINK->Set('c:\targetfile',
           '',                    # arguements
           'c:\',                 # directory tto execute in
           'Perl Shortcut',       # description
           1,                     # window state (1 is normal)
           $Shift+$Ctrl+ord('S'), # shorcut key
           '',                    # icon file eg win32.dll
           0);                    # icon number in file
my $shortfile = 'C:\WINNT\Profiles\PhilHibbs\Start Menu\Programs\Accessories\shortcut.lnk';
$LINK->Save($shortfile);
# run Explorer targetting the file just created
# system("Explorer /e,/select,$shortfile");
$LINK->Close();