Una de esas tantas ociosidades que a la final resultan útiles si lo que se quiere es un programa que funcione igual bajo Windows, Linux o Solaris: #!/usr/bin/perluse File::Find;use Getopt::Long;use strict;my $func;my $unit;my @dirs;my %units = ( kb => [ 1024.0, “KB”], mb => [ 1024.0* 1024.0, “MB”], gb => [ 1024.0 * 1024.0 * […]