Select Code to Download

$ perl -e <<___
if(1) {
print 44;
}
___
No code specified for -e.

$ perl <<___
if(1) {
   print 44;
...
   print 44;
}
___

lanx@lanx-1005HA:/tmp$ ls |perl -n <<___
print if /a/
...
at-spi2
mkinitramfs_JrDw4Q
mkinitramfs-OL_Ahxk1r