Help for this page
>perl -wMstrict -le "print get_IATA('bar'); ... } " foo
>perl -wMstrict -le "printf qq{'$_' } for get_IATA('bar'); ... } " 'yyy' 'zzz'