#!/usr/bin/perl -w

use strict;

my $file = $0; # how BIG am I ?
my $pstat_size = (stat($file))[7];
(my $qstat_size) = qx(stat $file) =~ m/Size: (-?\d+)/;

print "$pstat_size, $qstat_size\n"; # not that big