stat()
my @st = stat($pdf);iwpt_output("Size: $st[7] bytes<br>");
my @st = stat($pdf);my $size = $st[7];my $units = "bytes";my $tmp;if (int($tmp = $size / (1024*1024*1024)) > 0){ $size = $tmp; $units = "Gb";}elsif (int($tmp = $size / (1024*1024)) > 0){ $size = $tmp; $units = "Mb";}elsif (int($tmp = $size / 1024) > 0){ $size = $tmp; $units = "Kb";}if ($size =~ /\./){ iwpt_output(sprintf("Size: %2.2f %s<br>", $size $units));}else { iwpt_output("Size: $size $units<br>");}