Select Code to Download

perl -wE 'open my $F, ">", "/dev/full" or die "open:$!";
          for (1..10000) {
...
          };
          close $F or die "close:$!";
         '

print:No space left on device at -e line 3.