map ß O#!/usr/bin/perlxiuse strict;use warnings;