use warnings; use strict; use Path::Class 'dir'; use IPC::Run3 'run3'; use Data::Dump; my $dir = dir("C:\\Temp\\testuni"); $dir->recurse( callback => sub { my $path = shift; if (!$path->is_dir) { run3 ['hex', $path], undef, \my $out; dd "$path", $out; } });