[FWP] print thyself [golf]

[Clifford Hammerschmidt <cliff@marketingtips.com>]

Hi all,

We had a little competition at my work to come up with the shortest 
(non-empty) perl script that could print itself. The winner (Jeff Anderson) 
came up with:

$_=q(print "\$_=q($_);eval");eval

Can anyone come up with a shorter one?


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe