Help for this page

Select Code to Download

Select or download this

my $dir = '/some/where/';
chdir $dir or die "Can't chdir $dir\n";
opendir D, '.' or die "Can't opendir '.'\n";
...
{
    $filesize{$f} = -s $f;
}