What OS? I'm on linux with ext4:

$ perl -MPath::Tiny -lwE 'path("a" x 256)->touch'
Error open (>) on 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa':
+ File name too long at -e line 1.
[download]

$ 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
[download]