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)
Please follow and like us: