Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
    my $xml = shift;
    print $xml->{__SUPER_SECRET_FILENAME_PARAMETER__}; 
}