#!/usr/bin/perl

use strict;

$SIG{PIPE}=\&remove; # test PIPE signal


open(my $file, ">backup.txt");
for (my $i=1;$i<10000000;$i++) {
        print $file "Hello World\r\n";
}
close($file);

my $filedestruct=new SQLDump('backup.txt'); # test destruction object

print qq(Content-Type: text/plain\n);
print qq(Content-Disposition: attachment; filename="backup.txt"\n\n);
open(my $file, "<backup.txt");
binmode($file);
eval { # test eval
        while (read($file,my $bytes,1024)) {
                print $bytes or die 'STDOUT closed'; 
        }
        1;
} or do {
        &remove("eval $@");
};

close($file);
&remove('normal');  # simple remove file before normal end of script  

# --------------------------

sub remove {
        &log;
        my $filename='backup.txt';
        if (-e $filename) {unlink($filename);}
}

sub log {
        open(my $file, ">>log.txt");
        print $file time.": @_\n";
        close($file);
}

# ==============================
package SQLDump;

sub new {
        my $self={filename=>$_[1]};
        bless $self;
        return $self;
}
sub DESTROY {
        my $self=shift;
        my $filename=$$self{filename};
        &main::remove('destroy');
        
}

1351164942: PIPE
1351164942: eval STDOUT closed at ... line 22.

1351165285: normal
1351165285: destroy