diff --git a/crypto/Makefile b/crypto/Makefile
index 36d93cc349156e03b3dc34c680942a3e9f9905f7..91efa3358e3b86d0d558fb5b7573912b5e7c6b6d 100644
--- a/crypto/Makefile
+++ b/crypto/Makefile
@@ -74,6 +74,8 @@ x86_64cpuid.s:	x86_64cpuid.pl;	$(PERL) x86_64cpuid.pl $(PERLASM_SCHEME) > $@
 ia64cpuid.s:	ia64cpuid.S;	$(CC) $(CFLAGS) -E ia64cpuid.S > $@
 ppccpuid.s:	ppccpuid.pl;	$(PERL) ppccpuid.pl $(PERLASM_SCHEME) $@
 pariscid.s:	pariscid.pl;	$(PERL) pariscid.pl $(PERLASM_SCHEME) $@
+alphacpuid.s:	alphacpuid.pl
+	$(PERL) $< | $(CC) -E - | tee $@ > /dev/null
 
 testapps:
 	[ -z "$(THIS)" ] || (	if expr " $(SDIRS) " : ".* des " >/dev/null; \
diff --git a/crypto/alphacpuid.s b/crypto/alphacpuid.pl
similarity index 97%
rename from crypto/alphacpuid.s
rename to crypto/alphacpuid.pl
index 3fa77a0ade5b1415080cbe95e8468d51e88a4471..1908216532c4d56f555ff5728fe3137e7f6757ee 100644
--- a/crypto/alphacpuid.s
+++ b/crypto/alphacpuid.pl
@@ -1,3 +1,5 @@
+#!/usr/bin/env perl
+print <<___;
 .text
 
 .set	noat
@@ -123,3 +125,4 @@ OPENSSL_cleanse:
 	br	.Little
 .Ldone: ret	($26)
 .end	OPENSSL_cleanse
+___