view release on metacpan or  search on metacpan

Quine.pm  view on Meta::CPAN

package Quine;

$VERSION = '1.01';

sub import {
  my $file = (caller)[1];
  local ($/, *FILE);
  open FILE, $file;
  print STDOUT <FILE>;
  close FILE;
  exit;
}


1;