open my $fh, ">/dev/full" or die "open: $!\n";
print $fh "abc\n" or die "print: $!\n";
close $fh or die "close: $!\n";

##</code><code>##

close: No space left on device