Help for this page

Select Code to Download


  1. or download this
    "C:\Perl64\bin>disk.pl
Can't locate Filesys/DiskSpace.pm in @INC (@INC contains: C:/strawb
e/lib C:/strawberry/perl/vendor/lib C:/strawberry/perl/lib .) at C:
isk.pl line 4.
BEGIN failed--compilation aborted at C:\Perl64\bin\disk.pl line 4."
  2. or download this
    #!/usr/bin/perl
use strict;
...
my $out = sprintf("Disk space on $dir == %0.2f\n",$df_free);
print $out;.