File Perl

#!/usr/bin/perl
use warnings;
use strict;
use File::stat;
my $filename = "data.txt";
if (my $stat = stat $filename) {
    print "'$filename' is ", $stat->size,
          " bytes and occupies ", $stat->blksize * $stat->blocks,
          " bytes of disc space \n";
} else {
    print "Cannot stat $filename: $| \n";
}