use File::Path qw/ make_path /;
make_path( $_ ) for 1 .. 20;