use strict;
use feature ':5.10';
use Data::Dumper;
use Image::ExifTool qw(:Public);
use Win32::OLE;

# cwd is c:/tmp/
say "exiftool\n";
my $info = ImageInfo("c:/tmp/test/link.lnk");
say Dumper($info);

say "\nOLE\n";
my $wsh = new Win32::OLE 'WScript.Shell';
my $shcut = $wsh->CreateShortcut("c:/tmp/test/link.lnk") or die;
say $shcut->TargetPath