#!perl
use strict;
use warnings;
my $gross = -s "datei.txt" or die $!; 
print "Größe ist $gross\n";