in reply to Get disk usage without modules

"...without..."

Still worth to read, especially what merlyn wrote 16 years ago.

You may cheat (AKA code reuse) from File::Find.

Best regards, Karl

«The Crux of the Biscuit is the Apostrophe»

perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help

In Section Seekers of Perl Wisdom