my ($startdir) = @_;
chdir("$stardir\\") or die "Unable to enter dir $startdir:$!\n";
        ^^^^^^^