Select Code to Download

use Win32::Shortcut ();

...
# Make sure C:\TEMP exists.
# Make sure you have no windows displaying C:\TEMP.
system('start "C:\\TEMP.lnk"');

use strict;
use warnings;
...
$s3->Save('C:\\TEMP.lnk');

system('start "C:\\TEMP.lnk"');