$dataFile = '/opt/ExportedPGPKeys/SampleData.txt'; $isEncrypted = system(qw'pgp -ea +batchmode', $dataFile, @sys); print " The output value is $isEncrypted \n";