$ perl -MPath::Tiny -lwE 'path("a" x 256)->touch'
Error open (>) on 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa': File name too long at -e line 1.

##</code><code>##

$ 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