Fixed external perl print data call