Select Code to Download

#!usr/bin/perl -w
use strict;
...
    my ($hash)=@_;
    print "$hash{A} $hash{B} $hash{C}\n";    
}

#!usr/bin/perl -w
use strict;
...
    my (%hash)=('A'=>1, 'B'=>2, 'C'=> 3);
    return(\%hash);    
}