sub RetrieveAndBackupXML {
#~ 	my( $directory ) = @_; ## same as shift @_ ##  same as shift
	my $directory = shift;
	my $date      = POSIX::strftime( '%Y-%m-%d', localtime ); #sets current date and time to be added to backup file
	my $bak       = "$date.bak"; #date added to the .bak file
	my @xml_files = path( $directory )->children( qr/\.xml$/ );
    for my $file ( @xml_files ) {
        Replace( $file, "$file-$bak" ); #sub Replace using it's 2 parameters as defined below
    }
}