#!/usr/bin/perl

use strict;

use warnings;

use autodie;

# Load time benchmark. Courtesy Niels Thykier

use constant N => 1000;

# Pretend we are a project with a N modules that all use autodie.

my $str = join("\n", map { "package A$_;\nuse autodie;\n" } (1..N));

eval $str;