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