#!/usr/bin/perl do "./config.pl"; use File::Slurp; my $i = 5; #$nt->update("Hello World"); my @Files = `find gray`; # Remove folder name shift @Files;