#!perl use strict; use warnings; use File::Overwrite qw(overwrite_and_unlink); my $new_file = shift @ARGV; overwrite_and_unlink($new_file);