And for those of us not fond of line noise,

my $size = (stat $file)[7];
[download]

:)

Makeshifts last the longest.