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

##</code><code>##

use ExtUtils::MakeMaker;
use APR;
my $r = WriteMakefile(
    NAME         => 'Handel',
    VERSION_FROM => 'lib/Handel.pm',
    AUTHOR       => 'Christopher H. Laco',
    ABSTRACT     => 'Simple ecommerce framework',
);
for my $key (qw(NAME VERSION_FROM AUTHOR ABSTRACT)) {
   print "$key -> $r->{$key}\n";
}