+my $csv_header = 'Address_line_1,Address_line_2,Address_line_3,Address_line_4,Postcode,First_name,Last_name,Email,Weight(Kg),Compensation(�),Signature(y/n),Reference,Contents,Parcel_value(�),Delivery_phone,Delivery_safe_place,Delivery_instructions' . "\n";
+
+sub make_hermes_csv {
+ my ($order) = @_;
+ my $csv = Text::CSV->new;
+ my @fields = map { $order->{$_} } qw/address1 address2 address3 address4 postcode first_name last_name email/;
+ $csv->combine(@fields, '', '', 'n', '', '', '', $order->{phone}, $order->{safe_place}, $order->{instructions});
+ $csv->string
+}
+