$ perl -lwe 'for my $p ("./" x 2047, "." x 2048) { @s = stat $p ;print for @s ? @s : $! }'
2051
44564481
16877
128
1000
100
0
24576
1443729279
1443729280
1443729280
4096
56
File name too long