use File::Path qw{ remove_tree };

print remove_tree('1');
print "FINISHED\n";