format_c@server:~/perl_scripts> cat stat.pl
use strict;
use warnings;
my $file = 'test 1.txt';
print join "\n", stat $file;
print "\n";


format_c@server:~/perl_scripts> perl stat.pl
773
104845
33188
1
500
100
0
5
1081702930
1081702930
1081702930
4096
8
format_c@server:~/perl_scripts>