Select Code to Download

#!/usr/bin/perl
use warnings;
...
print( " NUMBER: $desnode\n" );
print( " Datainfo: $des\n" );
}

#!/usr/bin/perl 
 package Mymodule;  
...
my $file;
open( $file, 'formal.xml');
my %returnedHash = myFunction($file);