my $link_create	= Win32::Shortcut::new ("$ENV{USERPROFILE}/Desktop/Perleditor.lnk", "Perleditor.exe") || print "ERROR:\t$!\n";
$link_create-> Save ();
$link_create-> Close ();