#!/usr/local/bin/perl -w
# showsize.pl -- Groesse einer Datei mit File::stat stat() abfragen

use File::stat;                  # Standardmodul, ueberlagert stat()

my $fname = shift;               # Dateiname von der Kommandozeile
my $si = stat($fname);           # Erzeuge ein Stat-Objekt

print "Logical  Size: ", $si->size(), "\n";
print "Physical Size: ", $si->blocks() * $si->blksize(), "\n";