#!/usr/bin/perl

use strict;
my $win='/mnt/c/troy/rtcw/Main';
my $nix='/usr/local/games/wolfenstein/main';

my $dir;

$dir=opendir(DIR, $win) or die "Can't open $dir: $!\n";
my @files=grep /\.txt$|\.pk3$/i, readdir DIR;
foreach my $file (@files) {
	if (! -f "$nix/$file") {
		print $file,"\n";
		symlink "$win/$file","$nix/$file";
	}
}