sub unlink{# new unlink
    my $file_name=shift;
    unlink "$file_name"; #original unlink
    unlink "${file_name}.gz"; #original unlink
}