open my $fh, '>', '/dev/full' or die $!;
print $fh "Hello world!\n";
close $fh or die $!;

##</code><code>##

perl -mstrict -mautodie -e '..........'

##</code><code>##

perl -mstrict -e 'use autodie; ........... '