#!/usr/bin/perl --
use strict; use warnings;
use Path::Tiny qw/ path cwd /;
use autodie qw/ chdir /;
my $cwd  = cwd();
my @dirs = grep { -d $_ } path( 'antarctica' )->children();
for my $dir( @dirs ){
    Voltronize( $dir );
}
chdir $cwd;