#!/usr/bin/perl =pod =head1 For POD TEST (ä) ä ö ü =cut