Select Code to Download

my ($year,$month,$day) = unpack 'a4 x1 a2 a2', $date_cfg;
my $new_date = "$month/$day/$year";

my $new_date = join '',(unpack 'a4 x1 a2 a2',$date_cfg)[1,2,0];