#! /usr/bin/perl
use warnings;
use strict;

use Cwd;
use File::Path qw{ rmtree make_path };
use constant MAX_FILENAME_LENGTH => 255;

my $start_dir = getcwd();

my $depth = 200;
my $step = 'a' x MAX_FILENAME_LENGTH;
for (1 .. $depth) {
    make_path($step);
    chdir $step;
}
open my $fh, '>', "$step" or die $!;
chdir '..' for 1 .. $depth;

rmtree($step) or die $!;

END {
    chdir $start_dir;
    if (-d $step) {
        rmtree($step) or warn $!;
    }
}
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]