A Perl script that prints itself.
$s='$s=%c%s%c;printf($s,39,$s,39);';printf($s,39,$s,39);
pself.perl