Select Code to Download

$names{$refnum} = $str;

$names{$ref} = $str;

#!/usr/bin/perl

...
}
 
print Dumper(%names);