my @rrds = grep { /.*rrd$/ && -f "$logsdir/$_" } readdir DIR; #### $cmd = qq|$mv resize.rrd $logsdir/$rrd|; print "\tRenaming resized file, executing $cmd\n"; system($cmd) == 0 or die "Could not execute $cmd:$!\n"; #### print "\tRenaming resized file, executing $cmd\n"; rename 'resize.rrd', "$logsdir/$rrd" or die "Could not rename resize.rrd:$!\n";