Perl makes for easy quines. Many famous BASIC quines used DATA; here's a Perl translation, that uses reverse to make life more interesting.


#!/usr/local/bin/perl -w
use strict;
my @x = <DATA>;
print ((reverse @x), @x);
__END__
__END__
print ((reverse @x), @x);
my @x = <DATA>;
use strict;
#!/usr/local/bin/perl -w

Log in or registerto write something here or to contact authors.