#!/usr/bin/perl
for my $f (@ARGV) {
	$/ = undef;
	my $symlink = $f;
	$symlink =~ s/.lnk$//i;
	open(F,'<', $f);
	my $lnk = <F>;
	my $lnk_n = unpack("S", substr($lnk,0x4c,2));
	$lnk = substr($lnk,0x4e, $lnk_n);
#	print "ln -s '$lnk' '$symlink && rm '$f''\n";
	symlink($lnk, $symlink) && unlink($f);
	close(F);
}