Help for this page

Select Code to Download


  1. or download this
    Cannot make a non-overridable builtin fatal at /usr/share/perl/5.8/Fat
    +al.pm line 108.
    BEGIN failed--compilation aborted at f.pl line 1.
    
  2. or download this
        use Fatal qw/open close/;
        my $result = do {
            open my $fh, '>', '/dev/full';
            print $fh "Foo\n";
        };
        print $result ? $result : $@, $/;