[...]
my $file = $ARGV[0];

my $temp = File::Temp->new(DIR => File::Spec->curdir);
[...]

rename $temp->filename, $file;