Select Code to Download

my $Size = best_convert(
     my $SizeUnit, 
     $DirInfo->{HighSize}, 
     $DirInfo->{LowSize},
   );
   print "Dir size = $Size $SizeUnit \n";

sub make_table(){
    $table=$page3->Scrolled('HList',-columns=> 2,-header=> 1,-width=>3
+1,-height=>9,-font=>"Times 12",-scrollbars=>'osoe')
...
        }#foreach
    }#while
}#make_table

#!/usr/bin/perl -w
use strict;
use Win32::DirSize;
...
        $sourcesize .= "$sbyte MB";
        print $sourcesize;
    }else{    print "More than 3.99GB";}#else