#!/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__
[download]

Uncaught exception: Can't unlink('file.txt'): No such file or director
+y 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 direc
+tory 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 direct
+ory') 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.
[download]