my $dir = 'Links';
if (-d $dir) {
   chdir $dir or die "can't chdir: $!";
}
else {
   mkdir $dir or die "can't mkdir: $!";
}