perlprog | fortan -gain 3dB