$ perl delight.pl
Bareword found where operator expected at delight.pl line 21, near "#line 3 is now "something"
  (Might be a runaway multi-line "" string starting on line 19)
        (Missing operator before something?)
String found where operator expected at delight.pl line 21, at end of line
        (Missing semicolon on previous line?)
syntax error at delight.pl line 21, near "#line 3 is now "something "
Can't find string terminator '"' anywhere before EOF at delight.pl line 21.

##</code><code>##

$ perl delight.pl
Can't unlink('file.txt'): No such file or directory at delight.pl line 13
Can't unlink('file.txt'): No such file or directory at delight.pl line 27
END failed--call queue aborted at delight.pl line 33.

##</code><code>##

#!/usr/bin/perl -l --
# really ensures warnings
BEGIN { $^W = 1; }
BEGIN { ${^WARNING_BITS} = 0;   }
BEGIN { $^H |= 0x00000002 |0x00000200 |0x00000400; }
BEGIN { $/ = "\n"; $\ = "\n"; }
BEGIN { BEGIN {
    use Carp::Always;
    use Carp qw/ confess /;
    sub unlink {
        my $goners ;
        while(@_){
            my $file = shift;
            unlink $file or confess "Can't unlink('$file'): $!";
            $goners++;
        }
        return $goners;
    }
}       }

local $SIG{__DIE__} = sub {
    confess "Uncaught exception: @_" unless $^S;
};

use strict; use warnings; use autodie;


use Tie::File;

my $file = "file.txt";
1 while unlink $file;

my $o = tie my @lines, 'Tie::Tile', $file, memory => 0;
for (@lines) {
    $lines[42] = "something else is here now";
    print $lines[42];
    #line 42 is now "something else is here now".
}
END { END { END{ END { 
    undef $o;
    untie @lines;
    1 while unlink $file;
    #really clears and empties everything.
    }     }    }     }
__END__

##</code><code>##

Uncaught exception: Can't unlink('file.txt'): No such file or directory at realdelight.pl line 14.
	main::__ANON__('file.txt') called at (eval 49) line 28
	main::__ANON__('file.txt') called at realdelight.pl line 31
 at realdelight.pl line 22.
	main::__ANON__('Can\'t unlink(\'file.txt\'): No such file or directory at rea...') called at C:/perl/site/5.14.1/lib/Carp.pm line 101
	Carp::confess('Can\'t unlink(\'file.txt\'): No such file or directory') called at realdelight.pl line 14
	main::__ANON__('file.txt') called at (eval 49) line 28
	main::__ANON__('file.txt') called at realdelight.pl line 31
Can't unlink('file.txt'): No such file or directory at realdelight.pl line 14.
	main::__ANON__('file.txt') called at (eval 49) line 28
	main::__ANON__('file.txt') called at realdelight.pl line 42
	main::END() called at C:/perl/site/5.14.1/lib/Carp.pm line 101
	eval {...} called at realdelight.pl line 14.
	main::__ANON__('file.txt') called at (eval 49) line 28
	main::__ANON__('file.txt') called at realdelight.pl line 42
	main::END() called at C:/perl/site/5.14.1/lib/Carp.pm line 101
	eval {...} called at C:/perl/site/5.14.1/lib/Carp.pm line 101
END failed--call queue aborted at realdelight.pl line 101.