print "\n\nPlease drop the metadata file [vendor instructions/isbn13.xml]:\n\n\t\t>>>";

chomp (my $metadata_file = <>);
print $metadata_file;

#$metadata_file =~ s/\s$//;

open (FILE, "<", "$metadata_file") or die "Could not open '$metadata_file': $!\n";
$metadata = join '', <FILE>;