#!/usr/bin/perl

use strict;
use warnings;
use Devel::DumpSizes qw/dump_sizes/;
use Data::Dumper;

my $path = system('find /usr/bin/*pdf');
&Devel::DumpSizes::dump_sizes($path);
my $d = Data::Dumper->new([$path]);
print Dumper $d;