Thank you for your the felicitation.
#connect prod
my $dbh2 = DBI->connect( $from_feed_dsn,$from_feed_user, $from_feed_pass, { RaiseError => 1,PrintError => 1 }) or die ( "Couldn't connect to database: " . DBI->errstr );
#connect staging

my $dbh3 = DBI->connect( $from_feed_dsn, $from_feed_user, $from_feed_p
+ass, {RaiseError => 1, PrintError => 1 }) or die ( "Couldn't connect 
+to database: " . DBI->errstr );
[download]

Yes, there is data being printed, so the select statement does find data, but print I do see an error,throughout printed results of the select statement, not sure if its just due to formatting: Use of uninitialized value $insert2 in join or string at /home/rdscopy.pl line 108. Use of uninitialized value $insert14 in join or string at /home/rdscopy.pl line 108.

[{"id":"2188595841sws21","length":7,"name":"OuiSurf","offset":46,"type
+":"page"},{"id":"28193822473sw4","length":17,"name":"Old Style Pilsne
+r","offset":58,"type":"page"}],"media":{"image":{"height":555,"src":"
+https:\/\/scontent.xx.fbcdn.net\/v\/t1.0-9\/s720x720\/14642467_117801
+9732256761_147125933148544115_n.jpg?oh=ad1bd37dd9e86fd463ff628455b0ef
+5b&oe=58B9A92E","width":720}},"target":{"id":"1178019732256761","url"
+:"https:\/\/www.facebook.com\//photos\/gm.809764315832456\/1178019732
+256761\/?type=3"},"type":"photo","url":"https:\/\/www.facebook.com\\/
+photos\/gm.809764315832456\/1178019732256761\/?type=3"}]}} 2016-10-11
+ 13:18:31 2016-11-16 18:53:34
[download]