#!/usr/bin/perl

use strict;
use XML::Simple;

sub sthg {
  my ($nothing)=@_;
}