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