open(FILE,$file) || die $!;
flock(FILE,2);
my $file_content = join '', (<FILE>);
flock(FILE,8);
unlink $file;