kernelthread.com

Self reproduction in Perl

Introduction

A Perl script that prints itself.

Source

$s='$s=%c%s%c;printf($s,39,$s,39);';printf($s,39,$s,39);

Download

pself.perl