view release on metacpan or  search on metacpan

example/quine.pl  view on Meta::CPAN

#!perl -w
use strict;
use FindBin qw($Bin);
use lib "$Bin/../lib";

use Acme::Perl::VM;

open *SELF, '<', $0;
run_block{
    while(<SELF>){
        print;
    }
};