My first Quine

My first Quine:

#!/usr/bin/perl
$str="dXNlIE1JTUU6OkJhc2U2NDsKCiMgVGhpcyBpcyBteSBmaXJzdCBR
dWluZSEKIyBmYXRzcXVpcnJlbC5vcmcvdmVnaGVhZAoKcHJpbnQgIiMhL3
Vzci9iaW4vcGVybFxuXCRzdHI9XCIkc3RyXCI7XG4iLmRlY29kZV9iYXNl
NjQoJHN0cik7Cg==";
use MIME::Base64;

# This is my first Quine!
# fatsquirrel.org/veghead

print "#!/usr/bin/perl\n\$str=\"$str\";\n".decode_base64($str);

(thanks to Gary for cluing me in to Syntax Highlighter)

Share

Leave a Reply