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

&main(@ARGV);
exit;

sub main {
    my $xml = XMLin(shift);
    &printName($xml);
}

sub printName {
    my $xml = shift;
    print $xml->{name}; # This is the line that needs help
}
------------------------------------------