Select Code to Download

# This is a quine.
$c = "# This is a quine.
...

  # Since data is now source, just print it and we are done.
  print $t;

# This is a quine two :-)
undef $/;
...
print;
print;
__DATA__