Using File::Overwrite:

#!perl 

use strict;
use warnings;
use File::Overwrite qw(overwrite_and_unlink);

my $new_file = shift @ARGV;
overwrite_and_unlink($new_file);
[download]

Note: The file must be closed in order for this to work on Windows.