Copy file contents to new file named using timestamp

copy_file.pl

#!/usr/bin/perl

use strict;
use warnings;
use Time::Piece;

my $src_file = 'ABC.txt';

my $t = localtime;
open my $in_fh, '<', $src_file
  or die "Can't open $src_file for reading: $!\n";

open my $out_fh, '>', 'ABC-' . $t->strftime('%m.%d.%Y-%T') . '.txt';

print $out_fh $_ while <$in_fh>;