{ # import PO data my $poImportDataOutErr; open (PO_IMPORT_DATA, '/usr2/web/tpm-secure/data_import/poImportData.pl |'); while() { $poImportDataOutErr .= $_; } close (PO_IMPORT_DATA); open(DIL, DATA_IMPORT_LOG); print DIL $poImportDataOutErr; close(DIL); }