$link = new Win32::Shortcut();
$link->Load("test.lnk");
print "Target: $link->{Path} $link->{Arguments}\n";
print "Start In: $link->{WorkingDirectory}\n";