Select Code to Download

use strict;
use warnings;

...
    my ($hash)=@_;
    print "$hash{A} $hash{B} $hash{C}\n";    
}