Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -l

...
Total Free Space MB
-------------------
25462.8125
  2. or download this
    open(my $fh, $file_name) or die;
my $text = do { local $/; <$fh> };     # slurp
close $fh;