Select Code to Download

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

$ perl -lwe 'for my $p ("./" x 2047, "." x 2048) { @s = stat $p ;print
+ for @s ? @s : $! }'
2051
...
4096
56
File name too long