#!/usr/bin/perl

use strict;
use warnings;
use DBI;

my $dbh = DBI->connect("DBI:Pg:dbname=northwind;host=localhost", "postgres", "postgres", {'RaiseError' => 1});

my $empid = $dbh->prepare('SELECT DISTINCT("EmployeeID") as empid FROM "Employees" ORDER BY 1');
$dbh->do("SET search_path to northwind") or die;
$empid->execute();

while(my $ref = $empid->fetchrow_hashref()) {

$dbh->do("SET search_path to nortwind") or die;

$dbh->do("COPY 
              (SELECT encode(\"Photo\", 'hex') 
          FROM 
              \"Employees\" 
          WHERE 
              \"EmployeeID\"='$ref->{'empid'}') 
          TO 
              '/home/postgres/scripts/images/'$ref->{'empid'}.hex'") or die;

system("/usr/bin/xxd -p -r /home/postgres/scripts/images/'$ref->{'empid'}.jpg'");

}

$dbh->disconnect();
exit;

##</code><code>##

DBD::Pg::db do failed: ERROR:  syntax error at or near "1."
LINE 8:               '/home/postgres/scripts/images/'1.hex'
                                                      ^ at photo.pl line 17.
DBD::Pg::db do failed: ERROR:  syntax error at or near "1."
LINE 8:               '/home/postgres/scripts/images/'1.hex'
                                                      ^ at photo.pl line 17.