better printing, use fill path to perl