Select Code to Download

use APR;
open(FH, '>test.txt') or die "Cannot open test.txt: $!\n";
print FH "This is some text\n";
close(FH);

use ExtUtils::MakeMaker;
use APR;
...
for my $key (qw(NAME VERSION_FROM AUTHOR ABSTRACT)) {
   print "$key -> $r->{$key}\n";
}