#!/usr/bin/perl
use strict;
use warnings;
use XML::Simple;

&main(@ARGV);

sub main {
  my $filename = shift;
    my $xml = XMLin($filename);
    $xml->{__SUPER_SECRET_FILENAME_PARAMETER__} = $filename;
    &printName($xml);
}

sub printName {
    my $xml = shift;
    print $xml->{__SUPER_SECRET_FILENAME_PARAMETER__}; 
}