Select Code to Download

#!/usr/bin/perl

use retrive;

%dat = retrive->gather();

package retrieve;

...
  return %dat;

}