#!/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');
	
}