certs/create-certs.perl | 2 +-

diff --git a/certs/create-certs.perl b/certs/create-certs.perl
index 476be4d7f90dc2df09593deef6dd88a124301aa5..b287cec5842626fc7b32304413c14cb8596bffd7 100755
--- a/certs/create-certs.perl
+++ b/certs/create-certs.perl
@@ -6,7 +6,7 @@ use warnings;
 use IO::Socket::SSL::Utils;
 use Net::SSLeay;
 
-my $dir = "./";
+my $dir = -d 'certs' && -f 'Makefile.PL' ? './certs/' : './';
 my $now = time();
 my $later = 0x7fffffff; # 2038 problems on 32-bit :<