Update writer.pl

perl External DBI patch